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Mit einem Demonstrationsprogramm _ von urrich stien! 


Anfang der sechziger Jahre entwickelte 
ein englischer Informatiker namens C.A.R. 
Hoare ein neuartiges Sortierverfahren, das 
1962 in einer Computerfachzeitschrift un- 
ter der Bezeichnung „Quicksort” vorge- 
stellt wurde. Es sollte sich als der bislang 
beste Sortieralgoriinmus erweisen. Wie al- 
le genialen Algorithmen scheint auch 
Quicksort dem Lernenden zunächst un- 
überwindlich kompliziert zu sein. Hat man 
den Algorithmus jedoch erst einmal ver- 
standen, dann enthüllt er sich als verblüf- 
fend einfach. 














1. Sortieren und Vergleichen 


Der Begriff des Sortierens ist nicht so ein- 
fach, wie man gemeinhin denkt. 


Alphabetische Sortierung 


Betrachten wir zunächst das Alphabet. 
Liegen beispielsweise die Buchstaben des 
Abc sortiert vor? „A“ istein Vokal, „B“ ein 
Labial, „C“ ein kombinierter Konsonant 
(„I" + „Z"), „D“ ein Dental, „E“ wieder 
ein Vokal usw. Von einer Sortierung kann 
keine Rede sein! Wer zufällig einmal ein 
Wörterbuch der altindischen Sprache 
Sanskrit in die Hand bekommen sollte, 
wird zu seinem Erstaunen feststellen, daß 
die alten Inder das richtig sortierte Alpha- 
bet erfunden haben. Zunächst kommen 
die Vokale und dann die Konsonanten, die 
jeweils in sich exakt teilsortiert sind. Die 
Dentale sind beispielsweise in der Reihen- 
folge „T, TH, D, DH, N“ angeordnet. „T“ 
ist der stimmlose Dental, „TH“ der stimm- 
los aspirierte Dental, „D“ der stimmhafte 
Dental, „DH“ der stimmhaft aspirierte 
Dental, und schließlich ist „N“, wofür es 
ein spezielles Zeichen gibt, dasjenige 
Dental-N, das einem anderen Dental vor- 
ausgeht. Das „N“ in „Ente“ spricht man 
nämlich anders als das „N“ in „Anker“ 
aus, denn bei „Enie“ steht ein Dental-N 
vor dem Dental-T und bei „Anker“ ein 
Guttural-N vor dem Guttural-K. Eines kön- 
nen wir auf jeden Fall festhalten: Wer auch 
immer das lateinische Alphabet erfunden 
hat, muß eine Vorliebe für „chaotisches 
Sortieren“ gehabt haben. 


Numerische Sortierung 


Auch die Sortierung von Zahlen ist nicht 
so eindeutig, wie man zunächst annehmen 
möchte. Die Folge 

1,28 

wird man gemeinhin als aufsteigend sor- 
tiert bezeichnen. Wie steht es hingegen 
mit der Folge 

739, 1341, 522, 1862, 

die in einem Intelligenztest-Buch von 
H.J.Eysenck steht? Ist sie nach einem 
„geheimen Verfahren“ sortiert? Tatsäch- 
lich gibt es in der höheren Mathematik 
„sortierte“ Reihen, die man landläufig we- 
der als aufsteigend noch absteigend be- 
zeichnen würde. 


Sonstige Sortierung 


Noch undurchsichtiger wird der Begriff 
des Sortierens, wenn weder Wörter noch 
Zahlen sortiert werden sollen. Wie kann 
man beispielsweise die Shapes eines Gra- 
fikspiels sortieren: nach der Anzahl der 
Bits, nach der Richtung der Vektoren, nach 
der Wirkung auf den Spieler? Hier wie 
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auch bei den Wörtern und Zahlen müssen 
jeweils spezielle „Größer-Kleiner- 
Gleich“-Vergleichskriterien festgelegt 
werden. Für die alphabetische Sortierung 
„nach Duden“ gilt u.a. (Beispiele): 

„A < ,„B“ 


az, A 
anf: 
ss: 
„- = nichts 
„AA“ < „AB‘ 
USW. 


Dem Sortieren liegt also ein Vergleichs- 
prozeß zugrunde, der von den Vergleichs- 
Kriterien bestimmt wird. Ob eine Sortie- 
rung richtig oder falsch ist, hängt damit 
allein von den Vergleichskriterien ab, die 
ihrerseits völlig willkürlich festgelegt sein 
können, wie das lateinische Alphabet 
zeigt. 


2. Sortieren und Tauschen 


Unter Sortieren verstehen wir die Neuan- 
ordnung einer bestimmten Anzahl von 
Elementen nach zuvor festgelegten Ver- 
gleichskriterien. Programmtechnisch wer- 
den praktisch immer Arrays (= dimensio- 
nierte oder Feldvariablen) sortiert, und 
zwar bei Mikrocomputern üblicherweise 
im internen Speicher (= internes Sortie- 
ren im RAM) und nur ausnahmsweise im 
externen Speicher (= externes Sortieren 
direkt auf dem Datenträger = Diskette 
usw.). Betrachten wir hierzu das folgende 
Applesoft-Programm-Fragment: 


10W(1)=25 
20 W (2) = 30 
30 W (3) = 10 


Hier umfaßt der Array W nur 3 Elemente, 
nämlich 

1. Element mit Wert 25, 

2. Element mit Wert 30, 

3. Element mit Wert 10. 

Dabei ist zu unterscheiden zwischen der 
Nummer eines Elements (1., 2., 3.) und 
dem Wert eines Elements (25, 30, 10). Die 
Nummer eines Elements heißt auch Index 
und ist mathematisch gesehen eine Ordi- 
nalzahl = Ordnungszahl (Gegensatz: Kar- 
dinalzahl = Grundzahl). 

Würden die 3 Werte 25, 30 und 10 als 3 
entsprechend bezifferte Karteikärtchen 
vorliegen, so könnte man diese auf dem 
Tisch mit einem „flotten Griff“ so verdre- 
hen, daß sich sofort die aufsteigend sor- 
tierte Folge 10, 25, 30 ergeben würde. 

Bei einem Sortierprogramm muß statt des 
„fotten Griffs" stets ein paarweiser 
Tausch vorgenommen werden, wobei in 
Applesoft in Ermangelung eines SWAP- 
oder direkten Tauschbefehls sogar ein in- 
direkter Tausch über eine Zwischen- oder 
Dreieck-Tauschvariable T erfolgen muß. 
Wie ersichtlich, sind bei unserem Array 2 
Tauschoperationen erforderlich, um die 


gewünschte aufsteigende Sortierung her- 
beizuführen: 


Vorher: 

WwW(i)=25 
W(2) = 30 
W(3)=10 


Erster Tausch von 
1. und 3. Element: 


T=Ww() 
WAi)=W6) 
W@S=T 
Danach: 
W()= 10 
W (2) = 30 
W6) = 25 


Zweiter Tausch von 
2. und 3. Element: 


T=W(2) 
W(2)=W (3) 
WG =T 
Danach 
W(i)= 10 
W(2) = 25 
W (3) = 30 


Wert- und Indextausch 


Da die Werte hier physisch vertauscht 
wurden, sprechen wir auch vom Wert- 
tausch. Das Gegenstück dazu ist der In- 
dextausch. Da indes der Index oder die 
Feldnummer nur als „Offset“, d.h. als rela- 
tiver oder errechneter Abstand zum Be- 
ginn eines Arrays, und mithin gar nicht 
physisch existiert, muß zu diesem Zweck 
neben dem Wert-Array W ein Index-Array | 
eingeführt werden, der zunächst wie folgt 
initialisiert wird: 


I(1)=1 
|(2)=2 
|) =3 


Dies besagt, daß der Index-Array I anfangs 
als Werte die Nummern des Wert-Arrays 
W übernimmt. Nach Beendigung der Sor- 
tierung gilt für den Index-Array: 

I(1)=3 

I(2)=1 

I3)=2 

Beispielsweise enthält das 1. Element des 
Index-Arrays I den Wert 3 und zeigt damit 
auf das 3. Element des Wert-Arrays W, das 
den Wert 10 enthält, so daß gilt: 
wil))=W (3) = 10 

Wenn man anstelle des Wert-Arrays den 
entsprechenden Index-Array sortiert, so 
bleibt die ursprüngliche Reihenfolge der 
Elemente des Wert-Arrays erhalten. Neh- 
men wir an, Sie hätten eine Kundendatei 
(Wert-Array), wobei jedem Kunden eine 
logische Suchnummer vergeben wurde, 
die der Nummer (= dem Index) des jewei- 
ligen Datensatzes (= Wert-Elements) ent- 
spricht. Durch physische Vertauschung 
der Wert-Elemente würden die logischen 
Suchnummern verlorengehen. Deshalb 
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Tabellarisches Quicksort-Protokoll 








81 45 34 86 18 90 29 unsortiert 
14 15 16 17 18 19 20 Mitte 10,V:72 
| 45 34 86 18 90 29 Ersttausch 

45 34 86 18 90 98 Tausch 

45 34 86 94 90 98 Tausch 
81145 83 86 94 90 98 Tausch 
45|81 83 86 94 90 93 Tausch 
72|81 83 86 94 90 98 Letzttausch 
Al 15 16.17 18 319 29 Stack,E: 15,220 
14115 16 17 18 19 20 Mitte 17,V:86 
72|86 83181|94 90 98 Ersttausch 
72\81 83|86| 94 90 98 Letzttausch 
14115 16|17|18 19 20 Stack,F:15,1:16 
14/15 16|17!18 19 20 Mitte 15,V:81 
7281 83|86194 90 98 Erstlausch 
72|81 83|86|94 90 98 Letzttausch 
14115 16) 12148 1920 Stack E:18,L.20 
14115 16/17/18 19 20 Mitte 19,V:90 
72!81 83|86|90 94 98 Ersttausch 
7281 83/86/90 94 98 Letzttausch 
14115 16|17!18 19 20 Stack, F:19,L:20 
14!15 16117|18 19 20 Mitte 19,V:94 
72,81 83|86|90 94 98 Ersttausch 
72|81 83|86|90 94 98 Leitzttausch | 
14|15 16[17\18 19 20 Mitte 7,V:18 | 
| 72|81 8386190 94 98 Ersttausch 
72|81 83|86|90 94 98 Letzttausch 
16117|18 19 20 Mitte 7,V:45 
83186|90 94 98 Ersttausch 
83186190 94 98 Tausch 
83|86!90 94 98 Tausch 
83186190 94 98 Letzttausch 
16|17|18 19 20 Stack,F:10,L:13 
16117|18 19 20 Mitte 11,V:56 
83186!90 94 98 Ersttausch 
83|86|190 94 98 Letzttausch 
ieı1z18 1920 Stack Fi12 19 
16117118 i9 20 Mitte 12,V:66 
386 90 94 98 Ersttausch 
83186190 94 98 Letzttausch 
16117|i18 19 20 Mitte 5,V:35 
83|86!90 94 98 Ersttausch 
83186190 94 98 Tausch 
8386190 94 98 Letzttausch 
16117118 19 20 Mitte 4,V:27 
83|186/90 94 93 Erstiausch 
831 86/190 94 98 Letztlausch 
16117118 19 20 Mitte 4,V:34 
8386190 94 98 Ersttausch 
83186190 94 98 Letzttausch 
16117118 19 20 Mitte 4,V:29 
83186190 94 98 Ersttausch 
831 86|90 94 98 Letzttausch 
16117|18 19 20 Mitte 4,V:31 
83| 86190 94 98 Ersttausch 
831 86|90 94 98 Letzttausch 
72\81 83186190 94 98 sortiert 
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| NuiVss november Tl IM »peeker« bietet Ihnen was! 
| / Wer jetzt schenkt hat mehr von seinem Apple. 
Dafür schenkt »peeker« Ihnen etwas: Den prakti- 


schen Disk-Locher, der die Speicherkapazität Ihrer 


MAGAZIN FÜR APPLE-COMPUTER Disketten verdoppelt! 













| 
Trickfilmgrafik | 
PORENNCRE | Sie wissen ja, wie gut der »peeker« Ihnen im täg- 
Print-Using | lichen Umgang mit Ihrem Apple behilflich ist. Und 
Pascal:Compiler | Sie brauchen Ihren »peeker« nicht mehr zu teilen 
Framlum-Softcard 


oder auszuleihen. 


Der blaue Disketten-Locher ist unser Geschenk an 
Sie für einen neuen »peeker«-Abonnenten. Denn 

wer einen Apple hat, der soll auch seinen »peeker« 
haben. 
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ch bin der neue Abonnent. Bitte liefern Sie mir bis Coupon ausschneiden und 


auf Widerruf, zumindest aber für 1 Jahr, »peeker« 


zum Jahresbezugspreis von DM 72,- (Ausland plus einsenden an: 
DM 18,- Porto) an folgende Anschrift: 


Name Vomm —— 07 »peeker« 
Abonnementservice 


Straße, Postfach 
J- COUDON za Tree mr Im.Weiher 10 


6900 Heidelberg 1 





atum, Unterschrift 
Gewünschte Zahlungsweise 
U gegen Rechnung 
Ul bargeldlos durch Bankeinzug 
Ich habe den neuen Abonnenten geworben und er- 
halte kostenlos den Disk-Locher. Konto-Nr. Bankleitzahl 


Geldinstitut [} 
Name, Vorname —7777n7  YVertrauensgarantie: | | 


Diese Bestellung kann ich innerhalb einer Woche 


- bei Dr. Alfred Hüthig Verlag GmbH, Im Weiher 10, .. 
StraBe, Postfach 6900 Heidelberg 1 widerrufen. Zur Wahrung der Alkieihigg 
Fe Frist genügt die rechtzeitige Absendung. Ich be- PUBLIKATION 
PLZ, Ort stätige die Kenntnisnahme mit meiner Unterschrift: 


Datum, Unterschrift 2. Unterschrift 





wären hier die Indizes (= Zeiger) und nicht 
die Werte zu sortieren. 


3. Sortieren mit Bubblesort 


Bei der Folge 

Im25 

2.30 

3.10 

haben wir „auf den ersten Blick“ erkannt, 
daß 10 die kleinste Zahl ist; folglich haben 
wir 10 mit 25 vertauscht, damit 10 zum 
kleinsten Element wurde. Danach haben 
wir bei 

1210 

2.30 

925 

„auf den zweiten Blick“ erkannt, daß 25 
die zweitkleinste Zahl ist; folglich haben 
wir 30 mit 25 vertauscht, womit 30 zum 
drittkleinsten (= größten) Element wurde. 
Dieses „intuitive Sortierverfahren“ ist 
nicht nur für den Computer, sondern — bei 
größeren Mengen von zu sortierenden 
Elementen — auch für den Menschen völlig 
ungeeignet. Sie glauben mir nicht? Dann 
unterbrechen Sie bitte die Lektüre dieses 
Aufsatzes und suchen Sie einmal, nach- 
dem Sie sich das heutige Datum notiert 
und vorsorglich eine Krankmeldung an Ih- 
ren Arbeitgeber geschickt haben, das fünf- 
zigkleinste Wort aus diesem Peeker-heift 
heraus. ... Wieviele Tage sind seit Beginn 
der „Suchaktion“ verstrichen? 


Holzhammer und Köpfchen 


Sieht man einmal von der intuitiven Me- 
tnode ab, so lassen sich die Sortierverfah- 
ren in zwei Gruppen einteilen: 

a) Holznammer-Algorithmus 

b) Köpfchen-Algorithmus. 


Da Programme in Assembler bis zu hun- 
dertmal schneller als in BASIC oder Pascal 
sind, bedient man sich in anderen Berei- 
chen häufig primitiver, aber sehr schneller 
Assembler-Programme. Bei Sortierpro- 
grammen versagen jedoch die Holzham- 
mer-Verfahren, denn es läßt sich leicht 
nachweisen, daß ein Quicksort-Programm 
in Applesoft schneller als ein Bubbiesort- 
Programm in Assembler ist, z.B. wenn ein 
Array mit 1000 Zahlen sortiert werden soll. 
Betrachten wir zu diesem Zweck den Bub- 
blesort oder die „Blasensortierung“ als 
das primitivste Holzhammer-Verfahren. 
Der Bubblesort durchläuft wiederholt alle 
Elemente vom ersten bis zum vorletzten 
und vergleicht dabei jeweils das nächste 
Elements (X + 1) mit dem momentanen 
Element (X). Wenn das nächste Element 
kleiner als das momentane ist, werden 
beide Elemente vertauscht. Die Sortierung 
wird beendet, wenn bei einem (= dem 
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letzten) Durchlauf keine Vertauschung 
mehr erforderlich war. Beispiel anhand un- 
serer 3 Zahlen: 


Erster Durchlauf 

1.25 

2.80 

0 

2. mit 1. Element vergleichen (V1) 
30 < 25: nein, kein Tausch 

3. mit 2. Element vergleichen (V2) 
10 < 30: ja, tauschen (T1) 

Es wurde getauscht, also weiter. 


Zweiter Durchlauf 

1,25 

2.10 

3.30 

2. mit 1. Element vergleichen (V3) 
10 < 25: ja, tauschen (T2) 

3. mit 2. Element vergleichen (V4) 
30 < 25: nein, kein Tausch 

Es wurde getauscht, also weiter. 


Dritter Durchlauf 

1210 

E25 

0 

2. mit 1. Element vergleichen (V5) 

25 < 10: nein, kein Tausch 

3. mit 2. Element vergleichen (V6) 

30 < 25: nein, kein Tausch 

Es wurde nicht getauscht, also Ende. 


Insgesamt waren hier nur 2 Tauschopera- 
tionen (T2) und 6 Vergleichsoperationen 
(V6) erforderlich. In Wirklichkeit ist der 
Bubblesort, bei dem mit jedem Durchlauf 
die nächstgrößere Zahl wie eine Blase (= 
bubble) im Wasser nach oben transportiert 
wird, das ineffizienteste Sortierverfahren 
überhaupt. 

Die Effizienz eines Sortierverfahrens 
hängt von der Anzahl der Tausch- und 
Vergleichsoperationen ab. Als Faustregel 
können Sie davon ausgehen, daß Sie für 
das Sortieren eines Arrays mit 1000 Ele- 
menten beim Bubblesort mit ca. 1.000.000 
Vergleichen und bei Quicksort mit 10.000 
Vergleichen rechnen müssen. Damit ist 
der Quicksort — wiederum als Faustregel — 
etwa 100mal schneller als der Bubblesort. 
Daraus erhellt zugleich, daß ein Assem- 
bler-Bubblesort kaum eine Chance gegen 
einen Applesoft-Quicksort hat. 


4. Sortieren mit Quicksort 


Vorsortierung 


Angenommen, Sie hätten die unangeneh- 
me Pflicht, 10.000 Adreß-Karteikärtchen 
manuell nach dem Alphabet zu sortieren. 
Dann würden Sie sicherlich zunächst eine 
Vorsortierung vornehmen, indem Sie ge- 


trennte „Häufchen“ mit den „A”-Adres- 
sen, „B“-Adressen usw. anlegen würden. 
Das sich dann beispielsweise ergebende 
„S"-Häufchen würden Sie ferner in „ST"- 
und „SCH“-Teilhäufchen zerlegen usw. 
Jedes der Häufchen würde einen Bereich 
(= Abschnitt) darstellen, der insgesamt 
alphabetisch kleiner oder größer als die 
anderen Häufchen ist, d.h. alle Kärtchen 
des „B“-Häufchens sind z.B. kleiner als 
die Kärtchen des „C"-Häufchens, aber 
größer als die Kärtchen des „A"-Häuf- 
chens. Doch sind die Kärtchen des „B"- 
Häufchens zunächst noch nicht in sich 
sortiert. 


Mechanische Zerlegung 


Quicksort arbeitet nach dem soeben skiz- 
zierten Prinzip der Aufteilung oder Zerle- 
gung in Bereiche (englisch „partition”), 
doch werden die Bereiche nicht nach 
sachlichen Kriterien, sondern rein mecha- 
nisch gebildet. Bei alphabetischer Sortie- 
rung sind die Buchstaben-Häufchen sach- 
lich begründbar, obwohl Sie sehr schnell 
merken werden, daß manche Anfangs- 
buchstaben extrem häufig (z.B. „S“) und 
andere extrem selten (z.B. „Y") vorkom- 
men. Wenn Sie jedoch 10.000 Zahlen, 
deren „Streuung“ Sie nicht kennen, ma- 
nuell zu sortieren hätten, dann würden Sie 
feststelen, daß man bei größeren 
Datenmassen nur mit einer mechanischen 
Aufteilung weiterkommt, zumal ein Com- 
puter mit „sachlichen Kriterien” ohnehin 
nichts anfangen kann. 


Quicksort-Protokoll 


Betrachten wir nunmehr die Tabelle, die 
die aufsteigende Sortierung von 20 Zu- 
fallszahlen im _Werttausch-Verfahren 
Schritt für Schritt nachvollzieht. In der lin- 
ken Spalte befinden sich die Zeilennum- 
mern 


31: 

Zeile 1 enthält 20 unsortierte Zahlen 

01: 353.903.99.. 

während Zeile 2 die Nummern (= Indizes) 
der Zahlen 

O2 MOZE03 

angibt. 


Bis zur ersten Teilung 


Betrachten wir nun die Zeile 1 mit den 20 
Ausgangswerten. Zunächst ist dieser Be- 
reich 1-20 noch ungelteilt, wobei das 1. 
Element das linke oder untere Begren- 
zungselement und das 20. Element das 
rechte oder obere Begrenzungselement 
darstellt. Wie gelangen wir nun zur ersten 
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Teilung? Indem man eine willkürliche 
Halbierung vornimmt. Dies löst jedoch 
noch nicht das Problem des Aufteilungs- 
kriteriums. Quicksort vollzieht daher fol- 
genden mechanischen Dreierschritt: 


a) Zuerst wird ein sich etwa in der Mitte 
vom linken und rechten Begrenzungsele- 
ment befindliches sog. mittleres Element 
selektiert, und zwar hier das 10. Element 
(s. Zeile 2, rechter Rand). Man beachte, 
daß dieses mittlere Element später nicht 
notwendigerweise die Teilungsgrenze für 
die zwei Hälften darstellen wird. 


b) Dann wird der Wert dieses mittleren 
Elements (hier 72, s. Zeile 2, rechter 
Rand) willkürlich zum Vergleichswert er- 
Klärt. 


c) Schließlich wird der Wert des mittleren 
Elements mit dem Wert des linken, unter- 
sten Elements vertauscht. Konkret heißt 
dies hier, daß der Wert 72 des 10. Ele- 
ments mit dem Wert 35 des 1. Elements 
ausgetauscht wird (s. Zeile 3). Der Sinn 
dieses sog. Ersttausches hängt mit dem 
„Durchdrehen” des Algorithmus zusam- 
men (s.u.). 


Es ergibt sich damit in Zeile 3 folgende 
neue Ausgangssituation: Ein Vergleichs- 
wert (72) Ist aufgrund des mittleren (10.) 
Elements bestimmt worden, und das un- 
terste (1.) Element ist mit dem mittleren 
(10.) Element vertauscht worden. Wir be- 
trachten weiterhin die Zeile 3: 


Aufsteigendes Suchen: Da das unterste 
Element bereits durch den Ersttausch vor- 
läufig „abhackt” worden ist, suchen wir ab 
dem zweituntersten (hier 2.) Element von 
links nach rechts einen Wert, der dem 
Vergleichswert größer/gleich ist. Die 43 
als Wert des 2. Elements ist nicht größer 
als der Vergleichswert 72, wohl aber die 
98 als Wert des 3. Elements. 


Absteigendes Suchen: Nachdem wir die 
98 gefunden haben, suchen wird ab dem 
obersten (hier 20.) Element von rechts 
nach links einen Wert, der dem Ver- 
gleichswert kleiner/gleich ist. Dies ist hier 
gleich bei dem 20. Element der Fall, des- 
sen Wert 29 kleiner als der Vergleichswert 
72 ist. 


Normaler Tausch: Nachdem wir aufstei- 
gend bzw. absteigend jeweils einen Wert 
gefunden haben, der größer/gleich bzw. 
kleiner/gleich in bezug auf den Ver- 
gleichswert ist, vertauschen wird diese ge- 
tundenen Werte. Das heißt hier konkret, 
daß die 98 mit der 29 vertauscht wird. Die 
erfolgte Vertauschung ist aus der Zeile 4 
ersichtlich. 
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Weitere Suche: Da die 98 das 3. Element 
und die 29 das 20, Element waren, setzen 
wir unsere aufsteigende Suche mit dem 4. 
Element und die absteigende Suche mit 
dem 19. Element fort. Wir finden dann die 
Werte 94 (7. Element) und 18 (18. Ele- 
ment), deren erfolgte Vertauschung aus 
der Zeile 5 hervorgeht. Die Zeile 6 belegt 
noch die Vertauschung von 83 (8. Ele- 
ment) und 34 (16. Element) sowie die 
Zeile 7 die Vertauschung von 81 (14. Ele- 
ment) und 45 (15. Element). 


Letzttausch: Wenn man jetzt, nachdem 
man von links beim 14. Element und von 
rechts beim 15. Element angelangt ist, die 
Suche fortsetzt, überkreuzen sich die 
Nummern der Elemente. Deshalb been- 
den wir mit der ersten Überkreuzung 
(Überlappung) das Suchen und vertau- 
schen nunmehr den Wert des 14. Ele- 
ments (45), der sich beim absteigenden 
Suchen ergab, mit dem Wert des 1. Ele- 
ments (72), das vom Ersttausch herrührte 
und gleichzeitig während des gesamten 
Ssuchvorgangs den Vergleichswert dar- 
stellte. Wenn nämlich der beim überlap- 
pend absteigenden Suchen gefundene 
Wert 45 kleiner als der Vergleichswert 72 
ist und das 1. Element den Vergleichswert 
beinhaltet, dann können wir getrost 45 mit 
72 vertauschen, womit der Vergleichswert 
72 als 14. Element seine endgültige Po- 
sition erhält. Das Ergebnis des Letzttau- 
sches ist aus Zeile 8 ersichtlich. 


Was haben wir damit erreicht? 

1. Der Bereich der Elemente 1-13 enthält 
jetztnur noch Werte, die dem Wert des 14. 
Elements, d.h, dem Vergleichswert, klei- 
ner oder gleich sind. 

2. Der Bereich der Elemente 15-20 enthält 
jetztnur noch Werte, die dem Wert des 14. 
Elements, d.h. dem Vergleichswert, grö- 
Ber oder gleich sind. 

3. Der Wert des 14. Elements, d.h. der 
Vergleichswert, ist bereits endgültig, d.h. 
die Position des 14. Elements wird sich bei 
den nachfolgenden Teilungen und Such- 
vorgängen nicht mehr ändern. Damit ha- 
ben wird zwei vorsortierte Teilbereiche ge- 
wonnen, nämlich den Bereich 1-13 sowie 
den Bereich 15-20, denn der Bereich 1-13 
ist In bezug auf den Bereich 15-20 insge- 
samt kleiner oder gleich. Die zwei Teilbe- 
reiche sind jedoch noch nicht in sich sor- 
tiert. 

4. Man beachte, daß die Teilung nicht di- 
rekt mit dem mittleren Element zusam- 
menhängt. Aufgrund des mittleren (10.) 
Elements hätten sich die Teilbereiche 1-9 
und 11-20 ergeben. In Wirklichkeit sind wir 
jedoch bei den Teilbereichen 1-13 und 15- 
20 angelangt. 


4 GRUNdlAGEN 4 


Bevor Sie nun weiterlesen, sollten Sie den 
bisherigen Ablauf anhand der Zeilen 1-8 
nochmals nachvollziehen. Wir wiederho- 
len den Algorithmus in Kurzform: 

1. Bereichsgrenzen (Unter- und Ober- 
grenze) ermitteln; in Zeile 2 durch halbfett 
gedruckte Ziffern ersichtlich, 

2. Mittleres Element willkürlich auswählen 
und dessen Wert zum Vergleichswert er- 
klären; s. Zeile 2 rechts: Mitte: 10, V(er- 
gleichwert): 72. 

3. Wert des untersten Elements mit dem 
Wert des mittleren Elements vertauschen; 
s. Zeile 3: Ersttausch. 

4, Ab dem zweituntersten Element nach 
rechts aufsteigend und ab dem obersten 
Element nach links absteigend jeweils ein 
Element suchen, das größer-gleich/klei- 
ner-gleich als der Vergleichswert ist. 
Wenn die aufsteigende/absteigende Su- 
che noch zu keiner Überlappung geführt 
hat, Werte der Elemente vertauschen und 
weitersuchen und -tauschen; s. Zeilen 4- 
7: normaler Tausch. 

>. Andernfalls Wert des untersten Ele- 
ments mit dem Wert des absteigend-über- 
lappenden Elements vertauschen; s. Zeile 
8: Letzttausch. 


Nach der ersten Teilung 


Das Quicksort-Motto lautet: Was man das 
erste Mal getan hat, kann man auch das 
zweite Mal tun („Rekursionsprinzip"). 
Folglich wenden wir exakt denselben Al- 
gorithmus nunmehr auf die zwei Teilberei- 
che 1-13 und 15-20 an. Dies hört sich 
jedoch leichter an, als es in der Program- 
mierpraxis ist, denn wir müssen uns natür- 
lich diejenigen Bereiche merken, die mo- 
mentan nicht bearbeitet werden. In der 
Zeile 9 sind die Ziffern 1 und 13 halbfett 
markiert: Diese stellen die Begrenzungen 
des Bereichs dar, der zunächst gemerkt 
werden muß, und zwar auf dem Stack (= 
Stapel = Keller; im Applesoft-Demo-Pro- 
gramm als Pseudo-Stack-Array realisiert). 
In Zeile 9 rechts außen finden wir die 
Bemerkung 

Stack, E15, L:20, 

die besagt, daß bei dem momentanen Be- 
reich das 15. das unterste (F = first) und 
das 20. das oberste (L = last) Begren- 
zungselement sind. 


Sie werden sich nunmehr drei Fragen 
stellen: 

1. Wie tief wird geteilt? Antwort: Bis ein 
Teilbereich nur noch aus zwei oder einem 
einzigen Element besteht. Aus Gründen 
der Übersichtlichkeit wird bei unserer Ta- 
belle die jeweils letzte Aufteilung, bei der 
das untere mit dem oberen Begrenzungs- 
element identisch ist, nicht angezeigt. In 
diesen Fällen enthält der Stack vorüberge- 
hend 2 gleiche Element-Nummern. 
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2. Wann ist die Sortierung abgeschlos- 
sen? Antwort: Wenn alle Teilbereiche 
komplett abgearbeitet worden sind, d.h. 
wenn der Stack wieder leer ist. 

3. Wie tief muß der Stack sein? Antwort: 
Wenn wir einen Pseudo-Stack-Array mit 
beispielsweise DIM SS% (30) anlegen 
und jeweils 2 Elemente für Unter- und 
Obergrenze eines „gemerkten“ Teilbe- 
reichs benötigen, so können 15 „gemerk- 
te" Teilbereiche auf den Stack geschoben 
werden. In der Praxis ist dies für ca. 1000 
zu sortierende Elemente selbst bei „entar- 
teten Folgen“ stets ausreichend. Betrach- 
ten Sie hierzu die Zahl 1024: Einmal halbi- 
ert (= 2 Grenzwerte auf dem Stack), ergibt 
sich 512, danach 256, 128, 64, 32 usw. Da 
man sich bei nicht ganz „mittigen“ Teilun- 
gen immer den größeren (= mehr Ele- 
mente umfassenden) Bereich merkt und 
mit dem kleineren (= weniger Elemente 
umfassenden) Bereich fortfährt, kann der 
Stack nie überlaufen. Jetzt wird uns auch 
der Grund für das mysteriöse „mittlere 
Element“ klar: Theoretisch könnte man 
jedes beliebige Element des Teilungsbe- 
reichs als Vergleichswert herauspicken. 
Durch Selektion des mittleren Elements in 
Verbindung mit der Weiterbearbeitung der 
jeweils kleineren Bereiche befinden sich 
bein (z.B. 1024) zu sortierenden Elemen- 
ten im Stack niemals mehr als Ib n (z.B. 
10) gemerkte Teilbereiche (Ib = Logarith- 
mus zur Basis 2;2 ? 10 = 1024). 

Wenn Sie bei der Tabelle die Mitte-Zeilen 
2, 10 und 28 betrachten, sehen Sie sehr 
gut die T-Kreuz-Formen der Bereichstei- 
lungen, wobei der senkrechte T-Strich das 
jeweils endgültig positionierte Element an- 
zeigt. 


5. Anmerkungen zum 
Demo-Programm 


Das gelistete Demo-Programm QUICK- 
‚RANDOM erzeugt bei jedem Durchlauf 
eine neue Zufallszahlenfolge, während 
das zusätzlich auf die Peeker-Sammeldisk 
aufgenommene Demo QUICK.SPEZIAL 
drei „entartete“ Zahlenfolgen vorführt. 
Ferner enthält die Sammeldisk die TASC- 
compilierbare Spezialversion QUICK- 
‚TASC zur Geschwindigkeitsmessung. 


Sentinel 


Sentinel heißt Wachposten. So bezeichnet 
man im Englischen die Begrenzungswerte 
(Minimal- und Maximalwert). Beim aufstei- 
genden und absteigenden Durchsuchen 
eines Bereichs müssen Sie dafür Sorge 
tragen, daß die Suche nicht nach unten 
über den Anfangswert und nach oben über 
den Endwert „absaust“. 
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Untere Begrenzung: Wenn wir das jeweils 
unterste Element durch den Vergleichs- 
wert ersetzen, kann die absteigende Su- 
che niemals über das unterste Element 
hinausgehen, denn der Vergleichswert ist 
niemals kleiner als der Vergleichswert. 
Obere Begrenzung: Wenn das oberste 
Element mindestens dem größten Wert 
des gesamten Arrays entspräche, könnte 
die aufsteigende Suche niemals über das 
oberste Element hinausgehen. Da es hier- 
für jedoch keine Garantie gibt, muß man 
entweder durch einen vorgeschalteten 
einmaligen Bubblesort-Durchgang das 
größte Element zum obersten Element 
machen oder — wie bei unserem Demo- 
Programm - ein weiteres Element (SN% 
+ 1) mit dem maximalen Wert (hier 9999) 
belegen, Selbst wenn alle anderen Ele- 
mente den gleichen Wert 9999 hätten, 
würde die Sortierroutine niemals „ab- 
sausen“. 


Unnötiger Erst/Letzttausch 


Die Sentinel-Methode führt bei den klein- 
sten Teilbereichen zu einem unnötigen 
Erst- und Letzttausch, Betrachten wir hier- 
zu in der Tabelle die Zeile 54 mit dem 2- 
Element-Bereich vom untersten (4.) Ele- 
ment (Wert 31) bis zum oberste (5.) Ele- 
ment (Wert 32). Zunächst wird das 4. Ele- 
ment als Vergleichswert erkoren. Da das 
A. Element zugleich das unterste Element 
dieses Bereichs ist, wird das 4. Element 
mit dem 4. Element vertauscht (unnötiger 
Ersttausch). Da bei der nachfolgenden 
auf- und absteigenden Suche eine Über- 
lappung stattfindet, wird erneut das 4. Ele- 
ment mit dem 4. Element vertauscht (un- 
nötiger Letzitausch). 

Man muß hierzu jedoch wissen, daß jede 
zusätzlich eingebaute Prüfung, die unnöti- 
ge Vergleiche eliminiert, selbst in Form 
eines Vergleichs programmiert werden 
muß, der ebenfalls Zeit kostet, so daß eine 
Verfeinerung der hier vorgestellten Ap- 
plesoft-Quicksort-Implementierung kaum 
zu Zeitgewinnen führen würde. 


Sonderfälle 


Das Demo funktioniert nur, wenn der zu 
sortierende Array mindestens 2 Elemente 
umfaßt. Ursprünglich für Zahlen-Arrays 
gedacht, läßt sich das Programm leicht für 
String-Quicksort umschreiben, indem man 
die Hilfsvariablen T und SV durch T$ und 
SV$ sowie den Array T (SN%) durch T$ 
(SN%) ersetzt. 


Geschwindigkeit 


Abschließend sei darauf hingewiesen, daß 
die TASC-compilierte Version von 
QUICK.TASC zum Sortieren eines Inte- 





ger-Arrays mit 1000 Elementen ca. 17 Se- 
kunden benötigt. Dagegen bringt es die 
nicht-compilierte Applesoft-Version 
QUICK.TASC nur auf 215 Sekunden. Der 
TASC-Compiler bewirkt hier also eine 
12fache Geschwindigkeitssteigerung. Die 
Assembler-Quicksort-Routine von Harald 
Grumser bewirkt nochmals eine Sfache 
Steigerung gegenüber der bestmöglichen 
TASC-Version. 


Kurzhinweise 


1. Zweck: 

Demonstration von Quicksort. 

2. Konfiguration: 

Apple Ile/c/+ mit einer 80-Zeichenkarte, 
die die Applesoft-Befehle INVERSE/NOR- 
MAL erkennt; DOS 3.3 oder ProDOS. 

3. Test: 

RUN QUICK.RANDOM 

RUN QUICK.SPEZIAL 

RUN QUICK.TASC 

RUN QUICK.DISK 

4. Sammeldisk: 

QUICK.RANDOM 

QUICK.SPEZIAL 

QUICK.TASC 

QUICK.DISK 


Al 


DB-MEISTER 


Adreß- und Schemabriefprogramm 


Der DB-Meister ist ein in Assembler ge- 

schriebenes, ungewöhnlich schnelles, un- 

kompliziertes und zugleich „narrensicheres“ 

Adreß-, Datei- und Schemabrieiprogramm. 

Technische Daten 

— Recordlänge bis zu 230 Zeichen 

— 560 bis 1000 Records pro Datendiskette 

— Maximal 25 Felder pro Record 

— Suche nach 3 Indexfeldern 

— Ausdruck der Dateien als Etiketten, Listen 
und Schemabriefe (mit Felder- und Tasta- 
tureinschüben an beliebigen Stellen des 
Formbriefes) 
normal kopierbare Programmdiskette, un- 
terteilt in Hauptprogramme und diverse 
Hilfsprogramme 

— einsatzfähig auf Apple Ile und Ilc mit 
2 Drives (1 Drive ebenfalls möglich) 


Gesamtpreis 290,- (2 Disketten + ge- 
drucktes Manual) 

U. Stiehl 

c/o Dr. A. Hüthig Verlag 

Postfach 10 28 69 - 6900 Heidelberg 
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QUICK.RANDOM 


Erzeugt tabellarisches Sortierprotokoll 
von 28 Zufallszahlen, die mit jedem RUN 
neu erzeugt werden 


Laden mit LOAD QUICK.RANDOM 
Entweder 8ß-Zeichenkarte mit PR#3 
einschalten oder 

in Zeilen 76% und 788 Druckbefehle 
für Fettdruck/Normaldruck statt 
INVERSE/NORMAL einsetzen und 
Drucker mit PR#1l einschalten. 
Jeweils mit RUN neue Tabelle 
generieren, 


HOME : GOSUB 76ß: 
PRINT "Quicksort-Deno von U.Stiehl";: 
GOSUB 780: PRINT 
REM 2B Zufallszahlen 
SNZz = 29: DIM T(SN& + 1) 
= ®: REM Zeilenzähler 
GOSUB 8ß#9: FOR X = 1 TO SNA: 
T{X) = INT (90 * RND {l)) + 18: 
PRINT 1 A DZ NET X 
PRINT "unsortiert" 
GOSUB 198: REM Sortieren 
GOSUB 868: FOR X = 1 TO SN%: 
PRINI TIX je. 2 NEXT X: 
PRINT "sortiert" 
END 


Initialisierung 


REM T(SNZ+HL) 

Inkrement-'Sentinel' = maximaler Wert 
T(SNZ + 1} = 9999 

REM Array von SF%=First Element 

bis SLZ=Last Element sortieren 

SF% = 1:5L% = SN% 

DIM SSZ(38):50% = Ö 


Bereich ermitteln ("Partition") 


REM Wenn SF%>=SL% dann Stack prüfen 
IF SEß >= SLZ THEN 529 


REM Dekrement-Zeiger SD% 
vorläufig auf SL%1l setzen 

Sso% = SsLa + | 

REM Inkrement-Zeiger SI% 

auf SF% setzen 

sI# = SF% 

REM Mittlere Positon SM% zwischen 
SF% und SLZ ermitteln 

SMZ = INT ((SLZ = SE%) Z 2) # she: 
GOSUB 569: REM Anzeige 


Ersttausch 


REM SM%-Wert zum Vergleichwert SV 
machen und SM%-Wert mit SF%-Wert 
tauschen; Ersttausch; 
Dekrement-'"Sentinel' = minimaler Wert 
Sy = TISMa): TOM) — Tisha): 

T(SF%) = SV: GOSUB 62: GOSUB 798: 
REM Anzeigen 


Inkrement und Dekrement 
REM SI%Z erhöhen, solange T{(SI%) < ST 


SIZ = SIZ + 1: IF T{SI%) < SV 
THEN 349 


REM SDZ vermindern, solange T{SD%) > 5 


SDZ = SDZ - 1: IF T(SD%) > SV 
THEN 368 

REM Überkreuzen sich SI% und SD%? 
IF SDZ < = SIZ THEN GOTO 436 


Normaler Tausch 


REM Wenn nein, momentanen SI%-Wert 
mit SD%-Wert tauschen; 

normaler Tausch 

TT = T(SIZ):T(SIZ) = T(SD%): 

T(SD%) = TT: GOSUB 7468: REM Anzeigen 
GOTO 349 


Letzttausch 
REM Wenn ja, SF%-Wert durch SD%-Wert 


und SD%-Wert durch SV ersetzen; 
Letzttausch 
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TisE5) — EI 05, Di 
GOSUB 728: REM Anzeigen 


Sstack-Routine 


REM Größeren Teilabschnitt ermitteln 
IF SD% - SF% < SLZ - SD% THEN 48ß 
REM SF% und SL% des neuen 
Bereichs auf Stack schieben 
SSZ(SCZ + 1) = SF%: 

SSZISCH + 2) = SDR - 1: 

SEZ = SD% + 1: GOTO 5ß9 

sseiscz + 1} = 508 # I: 

SSZLSCH + 2) = SLA:SLA = SDR - 1 
REM Stack-Counter SCZ um 2 erhöhen 
SC = SCH + 2: GOTO 249 

REM SP% und SL% des letzten 
Bereichs vom Stack holen 

IE SC# = OTHEN SL — SsAlsch!: 
SEZ = SSAISCH - 11:50% = SCH = 2: 
GOTO 249 

REM Sortieren beendet, 

wenn SC% = ® ist 

RETURN 


Tabelle anzeigen 


REM *%** Anzeigen *** 

IE Scz = 60T0 619 

GOSUB 886: FOR Y = 1 TO SN% 

EOR X - 1 70567; 

IF SSZ(X) = Y THEN GOSUB 76ß: 
Sch 

NEXT : IF Y < 18 THEN PRINT "d"; 


FRINT Y;: GOSUB 789: PRINT ! NET: 


ERINT Ustacler I SsR7 UL VS 
RETURN 

GOSUB 889: FOR Y = 1 TO SNZ 

IF Y = SF% THEN GOSUB 769 

IF Y < 18 THEN PRINT "$"; 

PRINT Y; 

IF Y = SLZ THEN GOSUB 78 

PRINT " "; 

NEXT: > PRINT Mitte -Sma U VEN SV 
RETURN 

GOSUB 8ßB: FOR Y = 1 TO SNZ: 

IF Y= SM% OR Y = SF% THEN GOSUB 768 
PRINT T(Y);: GOSUB 788: PRINT " '"; 
NEXT Y: PRINT "Ersttausch": RETURN 
GOSUB 888: FOR Y = 1 TO SN%: 

IF Y= SF% OR Y = SD% THEN GOSUB 769 
ERINT I(Y).. COSUB Ted: ERINT 
NEXT Y: PRINT "Letzttausch": RETURN 
GOSUB 88: FOR Y = 1 TO SN%: 

IE YSIZ20RY - 50% IUEN (GOSUB 769 
PRINT T(Y}:: GOSUB 788: PRINT " ";: 
NEXT Y: PRINT "Tausch": RETURN 
INVERSE : GOTO 778: REM Dummy!!! 
PRINT CHR$ (27); CHR$ (71); 

F= 1: RETURN 

IF F= 1 THEN F = ®: NORMAL 

GOTO 798: REM Dummy!!! 

PRINT CHR$ (27); CHR& (72); 

RETURN 

ze2+ 0: Je 2° 19 THEN PRINT 9: 
PRINT 2; se RETURN 


Variablen 


829 REM SNZ=Dimension des Zahlenarrays 
83% REM SF%=First=Anfang des Bereichs 
84 REM SM%=Mitte des Bereichs 

858 REM SLZ=Last=Ende des Bereichs 
86% REM SI%=Inkrement-Zeiger 

87% REM SD%=Dekrement-Zeiger 

880 REM SS%=Stack=Stapel 

89ß8 REM SC%=Stack-Counter 

990 REM SV=Vergleichshilfsvariable 
91% REM TT=Tauschhilfsvariable 

928 REM T(SN%)=-Zahlenarray 


QUICK.SPEZIAL 


Das analoge Programm QUICK.SPEZIAL, 
das sich auf der Peeker-Sammeldisk 
befindet, demonstriert 3 Spezial- 
fälle von zu sortierenden Arrays: 

a) aufsteigend vorsortierte Elemente 
b) absteigend vorsortierte Elemente 
c\) völlig gleiche Elemente, 
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QUICK.DISK 
Externes Sortieren 


Wenn eine Datei so groß ist, daß nicht einmal die 
Sortierfelder (= Schlüssel) geschweige denn die Datensätze 
selbst in den Speicher eingelesen werden können, muß man 
extern auf der Diskette, Festplatte oder RAM-Disk sortieren 
Die nachfolgende QUICK.DISK-Routine gestattet das externe 


Sortieren einer beliebig großen Random-Datei (2 } 15 Sätze). 


Das Demo selbst, das unter DOS 3.3 und ProD0S funktioniert, 
ist jedoch auf maximal 9999 Astellige Zahlen begrenzt, was 
für die 64K-Karte-RAM-Disk ausreicht = 59,ß08 Bytes 

Von der Verwendung eines normalen Diskettenlaufwerks muß 
dringend abgeraten werden, denn dies würde bei 19.968 
Zahlen Tage dauern. Die Sortierroutine eignet sich demnach 
nur entweder für eine RAM-Disk oder eine Festplatte 


1® TEXT : HOME : INVERSE : PRINT "QUICKSORT-DISK'": NORMAL 
12 SB = 1: PRINT : INPUT "Wieviele Zahlen: ";SN: 
SUN — IND JSN): IE SN7< 72°0R 5N >199959 E0T0 12 
14 PRINT : PRINT SN;'" Zufallszahlen erzeugen,.," 
16 PRINT CHR$ {A)"OPEN 2,15": PRINT CHR$ (4)"WRITE Z,RP": 
PRINT SN 
18 FOR X = SB TO SN:TT = INT (96809 * RND (1)) + 19ß8: 
PL =ZIEL FIT 
2d PRINT CHR$ {4)"WRITE Z,R"X: PRINT TT: NEXT X 
22 PRINT CHRS (A)"WRITE Z,R"X: FRINT 939399: 
PRINT CHR$ (4)"CLOSE 2" 


24 PRINT : PRINT "Stoppuhr ";: GET X$: PRINT CHRS$ (7): 
GOSUB 36:X = PEEK (49168) 

26 IF PEEK { - 16384) < 127 THEN CALL - 1859: GOTO 26 

28 PRINT : PRINT "Prüfsumme ermitteln...": 


PRINT CHR$ (4)"OPEN Z,L5": PRINT CHR$ (4)"READ Z,R@": 
INPUT 5N 

38 TV = 6: FOR X = SB TO SN: PRINT CHR$ (A)"READ Z,R"X: 
ENPUT TI .P2 2 22 4 Ir JE IV > IT IHEN 
PRINT CHRE 4) "C1L.05E 20, PRINT "ERehler": END 

32 TU = IT: NEXT = PRINT CHRS (2)CLOSE 2: 
FRINE FI: PRINT F2 

34 END 


Unterroutine für externes Quicksort 


36 PRINT "Sort-Anfang": 
SF = SB:SL = SN: DIM SS(38):5C = 
38 PRINT CHR$ (4)"OPEN 2,15" 
ad ON SF < SL GOTO 44: IF SC > B THEN 
SL = SS(SC):SF = SS(SC - 1):5C = SC - 2: GOTO 49 
42 PRINT CHRE (A).EL0SE ZU SERINT "Sort Ende!l REIURN 
44 SD = SL + 1:SI = SF:SM = INT ((SL - SF) / 2) + SF 
A656 PRINT CHR$ (A)"READ Z,R'SM: INPUT TV: 
PRINT CHR$ (4) "READ Z,R"SF: INPUT TT: 
PRINT ECHR$ {A} "WRITE 2, R"SM: PRINT TT: 
PRINT CHR& (4) "WRITE Z,R'!SEF: PRINT TV 
48 SI = SI + 1: PRINT CHR$ ({4)"READ Z,R"ST: 
INPUT TI: IF TI < TV THEN 48 
568 SD = SD - 1: PRINT CHRS$ {4)"READ Z,R"SD: 
INPUT TD: IF TD > TV THEN 58 
52 IF SD > SI THEN PRINT CHR$ (4)"WRITE Z,R"SI: 
PRINT TD: PRINT CHR$ (A)"WRITE Z,R"SD: 
PRINT TI: GOTO 48 
54 PRINT CHR$ (A)"WRITE Z,R"SF: PRINT TD: 
PRINT CHR$ (A)''WRETE 2Z,R'"SD= PRINT "TV 
56 IF SD- SF < SL - SD THEN 
Sssisce EI) SD Isle 42), is 
SL = 5Dp =. ]75e = Sc 52. 601040 
58 SS(ISC + 1) = SF:SS(SC + 2) = Sb - 1: 
SF= SD + 1:SC = SC + 2: GOTO 49 
660 REM Für 9999 Zahlen ca, 1 Stunde Sortierzeit 
unter ProDOS + RAM-Disk + Accelerator 


Bemerkung: 


Die Sortierzeiten wären in der Praxis unvertretbar. Des- 
halb kommen anstelle des externen Sortierens in der 
Regel Misch- oder Merge-Programme zum Einsatz, 
Hierüber wird in einem gesonderten Peeker-Aufsatz 
berichtet. 


üll- 
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M- 1009 (Matrixdrucker , RS-232 + Centronics) DM 429,00 
M- 1009 anschlußfertig an: 

Apple //c (mit Drucker-Kabel) DM 529,00 
Apple //e (mit Graphik -Interfece und Kabel) DM 629,00 


Alle Preise inclusive der gesetzlichen Mehrwertsteuer. 
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Die ProDOS-Analyse 


Version 1.0.1, 1.0.2, 1.1.1 
von Arne Schäpers 


1985, 470 S., kart., 
DM 68,— 
ISBN 3-7785-1134-3 


„Die ProDOS Analyse“ ist die umfangreichste und detail- 
lierteste Darstellung, die jemals ein Apple-Betriebssystem 
erfahren hat. Wer die „Innereien“ von ProDOS bis zum 
letzten Byte, z. T. bis ins letzte Bit kennenlernen möchte, 
braucht dieses Buch. Das komplette Betriebssystem (Urla- 
der, MLI; Disk-Driver, RAM-Disk-Driver und Uhr-Routine) 
mit Ausnahme des BASIC-SYSTEM wird mit umfangrei- 
chen Kommentaren und Übersichtstabellen disassem- 
bliert. Dabei werden alle bisherigen Versionen von 1,0.1 
bis 1.1.1 berücksichtigt. „Die ProDOS-Analyse“ be- 
schreibt erstmals auch mehrere Programmierfehler, die bis 
in die neueste Version zu finden sind. Auch die nicht im 
„Technical Reference Manual“ aufgeführten Eigenschaften 
von ProDOS werden analysiert und beschrieben, z. B. die 
vertrackten eingebauten Testroutinen zur Identifikation der 
verschiedenen Apple-Il-Modelle und eventueller Nachbau- 
geräte. Programmierer, die ProDOS versionsabhängig 
„patchen“ möchten, erhalten hier den genauen Überblick, 
wo was geändert werden muß, damit dies keine negativen 
Konsequenzen hat. Durch die minutiöse theoretische Se- 
zierung von ProDÖS eröffnen sich völlig neue program- 
mierpraktische Perspektiven. 


Dr. Alfred Hüthig Verlag 
6900 Heidelberg : Postfach 10 28 60 
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14770-306 PGiroA Han (Anrechnung). DOS, PRODOS, CP/M u, PASCAL. gesellschaft für 


TYPETERM - ein Produkt von TYPETERM JUNIOR - ein Produkt von compulersteverungen 
und datentechnik mbh 
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Quicksort 








Eine superschnelle Applesoft-Erweiterung 


von Harald Grumser 


In vielen Anwendungen taucht das Pro- 
blem auf, Daten beliebiger Art zu sortie- 
ren. Bei geringerem Umfang der 
Datenmenge bietet sich ein Applesoft- 
Programm an, wie es in dem Artikel „Wie 
funktioniert Quicksort?“ in diesem Heft 
beschrieben wird (die Lektüre dieses Bei- 
trags wird hier vorausgesetzt). Diese Vor- 
gehensweise erfordert jedoch die Anpas- 
sung des Programms an den jeweiligen 
Datentyp und benötigt bei einer großen 
Zahl von Array-Elementen trotz des intelli- 
genten Sortieralgorithmus eine beträchtli- 
che Zeit. Abhilfe schafft hier der Übergang 
zu einem Assemblerprogramm, das dar- 
über hinaus alle drei Datentypen von Ap- 
plesoft (Real-Zahlen, Integer-Zahlen und 
Strings) unterstützt. So ist es möglich, 
1000 Real-Zahlen in einer Zeit von unter 3 
Sekunden zu sortieren. Außerdem wird 
bei Strings eine Sortierung nach Duden 
vorgenommen. 

Das Programm QUICKSORT wird als Am- 
persand-Utility in das eigene Applesoft- 
Programm eingebunden, nachdem es 
durch 

BRUN QUICKSORT 

(unter DOS 3.3, nicht unter ProDOS!) in- 
stalliert wurde. Dieser Aufruf sollte stets 
am Programmanfang erfolgen, da HIMEM 
verändert wird. Der Sortiervorgang wird 
dann eingeleitet durch den Befehl „&Ar- 
ray“, wobei Array das zu sortierende Feld 
bezeichnet, also z.B. XWERT, PUNKTE% 
oder NAME$ (siehe QUICKSORT- 
.DEMO). 


1. Die Grundlagen 


Bei der Programmierung eines umfang- 
reicheren Programms erweist es sich als 
vorteilhaft, zunächst einige Teilaspekte zu 
untersuchen, um dann das ganze Problem 
in Angriff zu nehmen (sog. Bottom-Up- 
Programmierung). Dieser Weg soll auch 
bei der Erläuterung dieses Programms be- 
schritten werden. 
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Aufbau von Array-Variablen 


Array-Variablen (auch indizierte oder Feld- 
Variablen genannt) werden wie alle Varia- 
blen hinter dem Applesoft-Programm ab- 
gelegt. Während einfache Variablen stets 7 
Bytes einnehmen, hängt der Umfang ei- 
nes Feldes von drei Faktoren ab. Zunächst 
kann ein Array bis zu 255 Dimensionen 
umfassen, wobei jede Dimension wieder- 
um aus bis zu (theoretisch) 65535 Ele- 
menten bestehen kann. Die Größe eines 
Elements hängt dann von dem Datentyp 
ab: 


— Integer-Zahlen belegen je zwei Bytes im 
Speicher, die die Zahl (im Bereich -32767 
bis 32767) repräsentieren. 

— String-Variablen belegen je drei Bytes. 
Das erste Byte gibt die String-Länge wie- 
der, während die beiden nächsten Bytes 
auf die eigentliche Zeichenkette, die sich 
im String-Pool unterhalb von HIMEM oder 
im Applesoft-Programm selbst befindet, 
verweisen. 

— Real-Zahlen werden durch fünf Bytes 
gespeichert, ein Byte Exponent und vier 
Bytes Mantisse. 


Jedes Feld wird durch einen Vorspann 
(Header) gekennzeichnet. Die ersten bei- 
den Bytes geben Auskunft über den Na- 
men, wobei die beiden Bit 7 den Varia- 
blentyp bestimmen. Danach folgt ein 
Zwei-Byte-Offset, der auf das nächste 
Feld verweist. Das nächste Byte gibt die 
Anzahl der Dimensionen wieder, woran 
sich für jede Dimension je zwei Bytes an- 
schließen, die die Anzahl der Elemente 
pro Dimension beinhalten. Erst dann fol- 
gen die einzelnen Elemente des Arrays 
(weiter Informationen hierzu sind der Ap- 
plesoft BASIC Programmieranleitung, An- 
hang | zu entnehmen). 

Da das Programm nur eindimensionale 
Felder unterstützt, entfällt die umständli- 
che Berechnung der Speicherabbildungs- 


funktion (diese Funktion weist jeder Ele- 
ment-Koordinate des n-dimensionalen 
Feldes eine lineare Speicheradresse zu). 


Die Auswertung des Arrays 


Beim Einsprung in die Quicksort-Routine 
steht der Programmzeiger (Textpointer) 
auf dem ersten Zeichen des Array-Na- 
mens. Der Applesoft-Interpreter enthält ei- 
ne Routine, die diesen Namen auswertet 
und einen Zeiger auf den Beginn des an- 
gegebenen Feldes richtet. Diese Routine 
namens PTRGET kann durch das sog. 
SUBFLAG gesteuert werden, um z.B. zu 
verhindern, daß das Feld neu angelegt 
wird. Nach der Bestimmung der Speicher- 
adresse des Arrays muß zunächst der 
Datentyp bzw. die Länge eines Elements 
mit Hilfe der Speicherstellen VALTYP und 
INTFLAG ermittelt werden, da bei der 
späteren Bearbeitung stets die Länge be- 
rücksichtigt werden muß. 

Danach erfolgt eine Überprüfung der Di- 
mension, um gegebenenfalls viaBSSERR 
die Meldung „BAD SUBSCRIPT ERROR 
auszugeben, falls es sich um ein mehrdi- 
mensionales Feld handelt. 

Mit der sich daran anschließenden Be- 
rechnung der Feldlänge wird der Anfangs- 
und Endwert (START und END) gesetzt 
und somit das Intervall für den ersten Re- 
kursionsschritt festgelegt. 


Vergleich zweier Elemente 


Ein wesentlicher Bestandteil des Sortie- 
rens besteht im Vergleich zweier Elemen- 
te. Hierzu wird ein Element in den Fließ- 
komma-Akkumulator FAC übertragen, im 
Fall von FP-Variablen durch die ROM-Rou- 
tine MOVFM und ansonsten durch einen 
eigenen Programmteil. Es bietet sich an, 
das mittlere Element des Intervalls, das 
während eines ganzen Rekursionsschrit- 
tes als Grundlage aller Vergleiche dient, 
dort abzulegen. 
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Der Vergleich muß abhängig vom 
Datentyp erfolgen. Real-Zahlen können 
durch FCOMP (Einsprung bei FCOMP!1) 
verglichen werden, während bei Integer- 
Zahlen eine eigene Routine die Verarbei- 
tung beschleunigt, da der Interpreter eine 
Typumwandlung in Real-Zahlen vorneh- 
men würde, was unnötige Zeit kostet. Der 
Vergleich wird durch das Vorzeichen-Bit 
(Bit 15) erschwert, da bei negativen Zah- 
len die Logik umgekehrt werden muß und 
bei Zahlen mit unterschiedlichen Vorzei- 
chen nur das Vorzeichen als Kriterium her- 
angezogen werden darf. 

Bei String-Variablen kann ebenfalls nicht 
auf eine Interpreter-Routine zurückgegrif- 
fen werden, da der Vergleich der einzel- 
nen ASCIl-Werte keine Sortierung nach 
Duden ergeben würde. 


Duden-Normierung 


Die Duden-Normierung sieht folgende Ab- 
weichungen gegenüber dem Applesoft- 
Vergleich von Strings vor: 

— Groß- und Kleinbuchstaben sind äquiva- 
Ient. 

— Zahlen und Sonderzeichen haben kei- 
nen Sortierwert. 

— Umlaute (ä, ö, ü) werden wie die ent- 
sprechenden Selbstlaute (a, 0, u) behan- 
delt. 

Die Sonderstellung des Eszett wird hier 
nicht berücksichtigt, so daß das „B“ nach 
„zZ“ eingeordnet wird. 

Die Routine, die diese Anpassung vor- 
nimmt, wird für beide zu vergleichenden 
Strings benutzt. Ein kleiner Trick erspart 
hier einige Zyklen an Rechenzeit. Statt 
eines Aufrufs als Unterprogramm wird der 
Programmablauf durch das V-Flag ge- 
steueri. 


Die Verwaltung der Elemente 


Grundsätzlich bestehen zwei Möglichkei- 
ten, den Zugriff auf die einzelnen Elemen- 
te zu gestalten: 

— Es wird der jeweilige Index verwaltet und 
vor einem Zugriff auf ein Feldelement die- 
ser Index mit der Länge eines Elements 
multipliziert und die Anfangsadresse des 
Arrays addiert, um zu der entsprechenden 
Speicherposition zu gelangen. Diese Ver- 
waltung erweist sich als sehr einfach bei 
der Bestimmung des mittleren Elements, 
kostet jedoch viel Zeit. 

— Die einzelnen Elemente werden direkt 
über ihre Speicherposition verwaltet, wo- 
durch sich der Zugriff sehr vereinfacht. 
Diese Möglichkeit bereitet jedoch Schwie- 
rigkeiten bei der Bestimmung des mittle- 
ren Elements, da eine Halbierung des In- 
tervalls bei ungeradzahliger Anzahl von 
Elementen einen Zeiger auf die Mitte ei- 
nes Eintrags erzeugen würde. Daher muß 
in diesem Fall ein Element von der Inter- 
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vallänge subtrahiert werden, was bei der 
Bestimmung MIDDLE = (START + END) / 
2 einer Abrundung entspricht. Die Festle- 
gung, ob es sich um eine gerade oder 
ungerade Anzahl von Elementen handelt, 
ist nicht ganz einfach, da sie nur über den 
START- und END-Wert in Abhängigkeit 
von der Elementlänge (2, 3 oder 5 Bytes) 
erfolgen kann. Die Lösung sieht dement- 
sprechend kompliziert aus: Sind STÄART- 
und END-Wert beide gerade oder ungera- 
de (zu erkennen am gleichen Bit 0), muß 
bei ungerader Elementlänge (3 oder 5 
Bytes) eine Anpassung erfolgen. Sind 
START- und END-Wert beide in der zwei- 
ten Stelle gerade oder ungerade (zu er- 
kennen am gleichen Bit 1), muß bei gera- 
der Elementlänge (2 Bytes) eine Anpas- 
sung erfolgen. 

Der zweiten Möglichkeit wurde wegen ih- 
rer kürzeren Ausführungszeit der Vorzug 
gegeben. 


2. Die Programmausführung 


Das Verständnis des Quicksort-Algorith- 
mus wird für die weiteren Ausführungen 
vorausgesetzt. 

Die Vorgehensweise des Ässemblerpro- 
gramms unterscheidet sich nur in wenigen 
Punken von dem Applesoft-Programm des 
0.9. Artikels, 

Erst- und Letzttausch entfallen wie auch 
die dazu analoge Einrichtung eines Senti- 
nels am Ende des Feldes, da dies zu einer 
Überschreibung des eventuell nächsten 
Arrays führen würde. 

Die Bildung der Intervalle gestaltet sich 
ebenfalls etwas anders. Am Ende eines 
Rekursionsschrittes werden linker und 
rechter Zeiger vertauscht, um sicherzu- 
stellen, daß sich die Intervallgrenzen nicht 
überschneiden. Der eventuelle Austausch 
zweier gleicher Zeiger wird dabei in Kauf 
genommen. 

Somit kann jedoch nicht mehr durch die 
Überschneidung der Zeiger das Ende ei- 
nes Rekursionszweiges erkannt werden. 
Als Kriterium zum Abbruch des Intervalls 
wird daher die Intervallänge herangezo- 
gen. Falls weniger als drei Elemente vor- 
liegen (d.h. erstes und mittleres Element 
sind wegen der Abrundung beim Halbie- 
ren gleich), wird dieser Ast beendet und 
ein neues Intervall vom Stack geholt. 

Die gravierendste Unterscheidung liegt in 
der Bestimmung des auf den Stack zu 
schiebenden Intervalls. Wird stets das 
Kleinere Intervall auf den Stack gescho- 
ben, ist sichergestellt, daß der Stack nicht 
überlaufen kann, da im ungünstigsten Fall 
das Intervall halbiert wird. Es hat sich zeit- 
lich jedoch als günstiger erwiesen, diese 
Unterscheidung nicht zu machen, sondern 
stets dieselbe Intervallhälfte (hier die rech- 
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te) zu speichern. Dadurch ist jedoch die 
Anzahl der notwendigen Stackelemente 
nicht mehr begrenzbar, wodurch ein Über- 
lauf eintreten kann. Dieser Spezialfall wird 
dadurch abzufangen, daß der komplette 
Sortiervorgang nochmals von vorne ge- 
startet wird. 

Abgesehen von diesen Unterschieden 
kann der Ablauf des Programms analog 
aus dem Applesoft-Programm übertragen 
werden. 


Kurzhinweise 


1. Zweck: 

Ampersand-Utility zur Sortierung eines 
eindimensionalen Arrays nach dem 
Quicksort-Algorithmus. 

2. Konfiguration: 

It+, Ile oder Ilc; 

BPOSS3 

(kein ProDOS wegen HIMEM-Änderung) 
3. Test: 

RUN QUICKSORT.DEMO 

4. Sammeldisk: 

QUICKSORT.DEMO 
(Applesoft-Demo-Programm) 
T.QUICKSORT 

(Big-Mac-Quelltext) 

QUICKSORT 

(Maschinenprogramm) 


Ältere Peeker-Hefte 


können für DM 6,50 pro Heft 
zuzüglich Versandspesen ange- 
fordert werden. Vergriffene 
Hefte sind als Photokopien 

für DM 10,- pro Heft erhält- 
IICM. 


Dr. A. Hüthig Verlag : Heidelberg 
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ORG 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
EQU 


EQU 
EQU 
EQU 
EQU 


LDA 
LDY 
STA 
STY 
STA 
STY 
STA 
Sy 
RTS 


Ampersand-Utility Quicksort * 
* 
Harald Grunser, 1985 * 
En ü 
$9413 37997 
50 ;Intervallstart 
$2 ;linker Zeiger 
54 ;‚Intervallmitte 
$6 ‚rechter Zeiger 
58 ;Intervallende 
$11 ;$FF = String 
$12 ;$88 = Integer 
$14 ‚Integer /DIM-Flag 
554 :1l. String-Index 
$35 ;2, String-Index 
56% ‚allg. Zeiger 
5852 ;temp. Deskriptor 
665 :Vergleichszeichen 
$6F ‚Ende der Strings 
$73 ‚HIMEM 
$9D ;Fließkomma-Akku 
$9B ;Arraypointer 
$EB ‚"Stackpointer" 
$EC ;Variablenlänge 
9298 ;Hilf-Stack 
$5F5 :&-Vektor 
$DFE3 ‚Var. auswerten 
$E196 ;"BAD SUBSCRIPT" 
$EAF9 (Ay e> AG 
$EBB6 :(A,Y)/FAC vergl. 
Initialisierung 
ee ee manner 
#>SORT 
#<SORT 
AMPER+2 ;‚Ämpersand, 
AMPER+1 
MEMSIZE+l ; HIMEM, 
MEMSIZE 
FRETOP+1 ; und FRETOP 
FRETOP ‚ initialisieren 


a u 


Hauptprogramm 


4m 


54 x Array bestimmen und initialisieren 


BSAVE QUICKSORT, A37997, L493 
1 * 
2 * 
3 * 
A * 
5 * 
6 # 
7 
8 
9 
18 START 
ll  LFTPTR 
12 MIDDLE 
13 _RGHTPTR 
14 END 
15 _ VALTYP 
16  INTFLAG 
17 SUBFLAG 
18  YSAV 
19  YSAvı 
28  DEST 
21 RESULT 
22 CHAR 
23 _FRETOP 
24 MENSIZE 
25 FAC 
26 LOWTR 
27 SP 
28 LENGHT 
29 
38 IN 
31  AMPER 
32 
33  PTRGET 
34 BSSERR 
35  MOVFM 
36  FCOMPI 
37 
38 * 
39 * 
AD 

9413: A9 94 41 INIT 

9415: AB 26 42 

9417: 8D F7 93 43 

YAlA: 8C F6 3 44 

941D: 85 74 45 

YAlF: 84 73 46 

9421: 85 76 47 

9423. 84 6F 48 

9425: 60 49 
50 
51 ü 
52 1 
53 
55 

9426: A9 49 56 SORT 

9428: 85 14 57 

9A2A: 20 ES DF 58 

942D: A9 65 59 

ga2F: 24 12 69 

9431: 16 #1 61 

9433: AA 62 

9434: 24 11 63  NOINT 

9436: FO 82 64 

9438: A9 #3 65 

943A: 85 EC 66 NOSTR 
67 

943C: AG 94 68 

943E: Bl 9B 69 

9449: C9 #1 78 

9442: FO 63 al 

9444: AC 96 El 72 

9447: A5 9B 73 _DIMOK 

9449: 69 06 74 

944B: 85 89 75 

944D: A5 9C 76 

9Y4AF: 69 99 DT 

9451: 85 ®1 78 

9453: A6& 9C 79 

9455: AB 92 89 

9457: Bl 9B 8l 

9459: 65 9B 82 

945B: 68 83 

945C: 38 84 

945D: E5 EC 85 

945F: 85 68 86 

9461: BB #1 87 


9463: CA 88 


18 


LDA 
STA 
JSR 
LDA 
BIT 
BPL 
LSR 
BIT 
BEQ 
LDA 
STA 


LDY 
LDA 
CMP 
BEQ 
JMP 
LDA 
ADC 
STA 
LDA 
ADC 
STA 
LDX 
LDY 
LDA 
ADC 
PHP 
SEC 
SBC 
STA 
BCS 
DEX 


#Z0100RBdd :Flag für Array- 


SUBFLAG ; Suche (V-Flag) 
PTRGET ‚Array auswerten 
#5 ;Variablenlänge 
INTFLAG bestimmen: 
NOINT 

‚ 2 = Integer 
VALTYP ‚, 3 = String 
NOSTR 5 = Real 
#3 
LENGHT 
#504 ‚Zeiger auf DIN-Zahl 
{LOWTR),Y 
#1 ‚nur eindimensionale 
DIMOK ; Felder zulässig 
BSSERR ;"BAD SUBSCRIPT" 
LOWTR 
#7—-1 ‚Schleifenkopf 
START ‚addieren 
LOWTR+1 
+0 
START+1 
LOWTR+1 
#502 ;Feld-Offset 
(LOWTR),Y 
LOWTR ;‚Low-Byte 

;Carry der Addition 
LENGHT ;Länge des letzten 
END ; Elements 
sp subtrahieren 


9464: 
9465: 
9466: 
ga6T: 
9469: 
QA6B: 
946D: 
QAGF': 


9471: 
9475: 
9475: 


9476: 
9479: 
94ATB: 
947E: 
948: 
9483: 
9485: 
9488: 
9a8A: 
94A8B: 
948D: 


9A8F: 
9491: 
9493: 
9495: 
9497: 
9499: 
949B: 
94SD: 
949: 
YAAß: 
YAAR: 
94AAS: 
945: 
9AAT: 
9AA9: 
Y9AAB: 
9AAD: 
QAAF: 
94Bl: 
94B3: 
9ABA: 
94B5: 
94AB6: 
94B8: 
94ABA: 
9ABB: 
YABC: 
94BED: 
94ABE: 
gACch: 
9401: 
9403: 
9404: 
9405: 


9AC7: 
9409: 
94ACB: 
9ACD: 
9acH: 
9AaDR: 
94D3: 
9AD5: 
94D7: 
94D9: 
94ADB: 
9ADD: 
9ADF: 
94ER: 


9455: 
gABT: 
9459: 
9AEB: 
9AED: 
9AEF: 
9AF1: 
9AF3: 


9AFG6: 


28 
c8 
8A 
1 
85 
Ag 
85 
Fo 


A6 
DP 
SB 


BD 
85 
BD 
85 
BD 
85 
BD 
85 


E9 
85 


A5 
A6 
85 
86 
AS 
26 
85 


18 
65 
A8 
AB 
45 
24 
19 
29 


29 
Fö 
B8 
38 
98 
E5 
BA 
CA 
28 
A8 


65 
6A 
85 
98 
SA 
85 


BO 


9B 
89 
aß 
EB 
1E 


EB 
81 


FC 1 


FD 81 
p1 


d8 
FF ®1 
9 


B4 
EB 


EC 
Bl 


#9 
85 


B4 


12 
BC 
p2 
nA 
9D BB 


F8 
18 
Lu 
FB 
BA 
5 
F9 EA 
EF 94 


d2 
EC 
82 
B2 
83 
#2 
#3 
6F 95 
85 


89 
9 
91 
92 
95 
94 
95 
96 
97T 
98 


188 
161 
182 
183 
194 
185 
186 
197 
168 
189 
118 
a 
112 
113 
114 
115 
116 
117 
118 
119 
128 
121 
122 
123 
124 
125 
126 
127 
128 
129 
136 
131 
132 
133 
134 
135 
136 
137 
138 
139 
146 
141 
142 
143 
144 
145 
146 
dr 
148 
149 
158 
151 
152 
153 
154 
155 
156 
157 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
178 
ir 
172 
173 
174 
175 
176 
177 
178 
179 
189 


SPl PLP 
INY 
TXA 
ADC 
STA 
LDA 
STA 
BEO 


:Carry aus Addition 


‚High-Byte 
{LOWTR),Y 
END+1 
+90 "Stack 
Sr ; initialisieren 
SUBSORT ;unbedingt 


* Neues Intervall vom Stack, falls möglich 


SORTSUB LDX 

BNE 

RTS 
NOEND LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
TXA 
SBC 
STA 


* Zeiger für 


SUBSORT LDA 
LDX 
STA 
STX 
LDA 
LDX 
STA 
STX 
CLC 
ADG 
TAY 
LDA 
EOR 
BIT 
BPL 
AND 
BNE 
AND 
BEQ 
PHP 
SEC 
TYA 
SsBC 
BCS 
DEX 
PLP 
TAY 
TXA 
ADC 
ROR 
STA 
TYA 
ROR 
STA 


ADJ 


ADJ1 


SP2 


NOADJ 


Sr ‚Stackpointer 

NOEND ;falls Null, 
‚ENDE 

IN-4,X ‚neuer | 

START ‚Sstartwert 

IN-3,X 

START+1 

IN-2,X ;neuer 

END ;‚ Endwert 

IN-1,X 

END+1 

#4 ‚Pointer 

SP ;‚ erniedrigen 


neues Intervall setzen 


END ‚rechten 
END+1 ; Zeiger 
RGHTPTR ; Initialisieren 
RGHTPTR+1 
START ‚linken 
START+1 ; Zeiger 
LFTPTR ‚ initialisieren 
LFTPTR+1 

;MIDDLE = 
END ;{START + END) / 2 

;bei ungeradzahl. 
START ; Elementen muß 
END ‚ angepaßt werden 
INTFLAG ; Integer? 
ADJ ‚nein, dann weiter 
+2BBB0BH18 
ADJ1 ;ungeradzahlig 
+DBHBDHRL 
NOADJ ;geradzahlig 

‚ein Element 

;‚ abziehen, um 
LENGHT ‚ geradzahlig 
SsPp2 vorzutäuschen 
END+1 ‚addieren 

and durch 2 
MIDDLE+1 ; dividieren 

;‚ ergibt 

;‚ mittleres 
MIDDLE ; Element 


* Mittleren Wert nach FAC übertragen 


LDA 
BPL 
LDY 
LDA 
STA 
DEY 
EPL 
BMI 
LDA 
BMI 
LDA 
LDY 
JSR 
JMP 


MOVXM 
MOVLOOP 


FPSTR 


INTFLAG ‘Integer? 
ERSTER ‚nein, dann weiter 
#2 ‚2 oder 3 Bytes 


(MIDDLE) ,Y ; für Integer 
FAC,Y ‚ oder Strings 
; übertragen 
MOVLOOP 
CMPLEFT ‚unbedingt 
VALTYP ‚String? 
MOVAM ;ja, dann weiter 
MIDDLE ‚ansonsten 
MIDDLE+1 ; mittels 
MOVFM ; ROM-Routine 
CMPLEFT 


* Linken Zeiger erhöhen 


LDA 
ADC 
STA 
BCE 
ING 
LDA 
LDY 
JSR 
BCS 


INCLEFT 


CMPLEFT 


LF'TPTR 


‚linken 
LENGHT Zeiger um 
LETPTR Elementlänge 
CMPLEFT ; erhöhen 
LFTPTRrFI 
LFTPTR :(A,Y) > 
LETPIRHI ; MIDDLE? 
COMPARE 
CMPRGHT ;ja, dann weiter 
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BCC INCLEFT ;weiter erhöhen 9588: 88 273 DEY ‚wieder auf MSB 
9589: 6A 274 CMPINTlL ROR :G -> Bit 7 
* Rechten Zeiger erniedrigen 958A: 51 69 205 EOR (DEST),Y ;Vorzeichen-Bit 
9586: 45 93D 276 EOR FAC ; berücksichtigen 
DECRGHT JSR DECRIGHT 958E: 38 eh SEC ;(löscht Z-Flag) 
CMPRGHT LDA RGHTPTR MB.) <= 958F: ZA 278 ROL ‚Bit 7 ->GC 
LDY "RGHTEIR+L ; MIDDEE? 9598: SO 2793 RTNCPI RTS 
JSR COMPARE 280 
BEQ SWAP ;ja, dann weiter 281 x* Real-Zahlen vergleichen 
BCS DECRGHT ‚weiter erniedr. 282 
9591: A6 11 2853  COMPFP LDX VALTYP ;Fließkomma-Zahl? 
* Vertauschen, falls LFTPTR < RGHTPTR 9595: DB 94 284 BNE COMPSTR ‚nein, dann weiter 
9595: 38 285 SEC ;(falls FAC = (A,Y)) 
SWAP LDA LETPIR ;linker Zeiger 9596: AC B& EB 286 JMP FCOMPI :FP-Vergleich 
CMP  RGHTPTR ; größer 287 
LDA LFTPTR+1 ; oder gleich 288 x» Strings vergleichen 
SBC RGHTPTR+1 ; rechter Zeiger? | | 289 
BCS NEXTSUB ;ja, dann weiter | 9599: AB 2 298 COMPSTR LDY +#$#2 ;Deskriptor 
LDY LENGHT 9598: Bl 60 291 SEIDESC LDA "(DESTI,Y ‚ als feste 
DEY ;2,. 8 öder 5 959D: 99 62 BB 292 STA RESULT,Y ; Adresse 
SWPLOOP LDA {LFTPTR),Y ; Bytes 95AB: 88 293 DEY ;‚ ablegen 
TAX ‚ austauschen 95Al: 12 F3 294 BPL SETDESC 
LDA (RGHTPTR),Y | 95A3: 84 34 295 STY YSAV ‚initialisieren 
u  95A5: 84 35 296 STY YSAVI1 
TXA 9547: A4 34 297 CSLOOP LDY YSAV ;1. String-Index 
STA - (RGHTPTRY.Y 9549: 24 14 298 BIT SUBFLAG ;V-Flag setzen 
DEY 95AB: 68 299  CMPMID INY ‚nächstes Zeichen 
BPL SWPLOOP 95AC: CA 9D 30% CPY FAC ; Länge 
SEC ‚für Subtraktion 95AE: FO 36 361 BEQ RTNCS ; erreicht 
JSR DECRIGHT 95Bß: Bl SE 302 LDA (FAC+L),Y ;MIDDLE-Character 
CEO ‚für Addition 95B2: 78 19 303 BVS CHKCHR ‚unbedingt 
BCC INCLEFT ‚nächstes Paar 95B4: 98 FB 364 CMPMIDl BCC CMPMID ‚ohne Sort,-Wert 
95B6: 85 65 385 STA CHAR 
* Intervall gegebenenfalls aufteilen 95B8: 84 34 306 STY YSAV 
95BA: AA 35 307 LDY KSAvı :2. String-Index 
NEXTSUB LDA START ‚Intervall- O5BC: B8 398 CLY ;V-Flag löschen 
CMP MIDDLE ; länge 96BD: C8 389  CMPAY INY ‚nächstes Zeichen 
BNE NEXTSUBl ; 1 oder 2? S5BE: C4 62 31% Ger RESULT ‚Länge 
LDA START+1 95CB: FB 31 =) BEQ RTNCS1 ; fertig 
CMP MIDDLE+1 95GC2: Bl 63 Sl2 LDA (RESULT+1),Y ;(A,Y}-Character 
BNE NEXTSUBl ‚nein, dann weiter 313 
JMP SORTSUB REKRKUÜRSTION 9504: 29 7F 314 CHKCHR AND #%ß1111111 ;ASCII normieren 
9506: C9 6% 315 CMP oo #'a'-l ;:Gemeine durch 
NEXTSUBl LDY #$01 ;linken und 9508: 90 82 316 BCC VERSAL ; Versalien 
NSBLOOP LDA LFTPTR,Y ; rechten 95CA: 29 DF Sr AND #%11ß11111 ; ersetzen 
TAX ; Zeiger 95CC: C9 41 313 WVERSAL EMP #'A' ‚alle anderen 
LDA RGHTPTR,Y ; austauschen S5CE: 96 13 >19 BCEC NOSVAL ;‚ ohne Sort,-Wert 
STA LETPTIR,Yr ; (falls 95DB: C9 5B 329 cCMP #'Ä' 
TXA -ERIEIR > 9502: DB 82 32] BNE NOAE ;Umlaute 
STA RGHTPTR,Y ; RGHTPTR) 95D4: A9 Al 322 LDA #'A' „dureh 
DEY S5D6E: C9 5C 323 NOAB CMPU9#'0' ‚ entsprechende 
BPL NSBLOOP 95D8: DB 82 524 BNE NOOE ; Selbstlaute 
95DA: AQ 4F seo LDA #'!0' ‚ ersetzen 
I:Dx% SP ‚Stackpointer S5DE: 9 5D 326 NOOE CMPU 9 #'U! 
GPX #-4 ;Überlauf? S5DE: DB 82 327 BNE NOUE 
BNE NOOVFL ‚nein, dann weiter S5EB: AY 55 528 LDA #'U'! 
JMP DIMÖOK ‚nochmal versuchen S5ER: 38 329 NOUE SEC ‚mit Sort.-Wert 
NOOVFL LDY #% ‚Zähler 95E3: 78 CF 358 NOSVAL BVS CMPMID1 ;V-Flag statt JSR 
FUSH LDA RGHTPTR,Y 33 
SEA INK ‚rechten Zeiger 9565: 90 D6 332 BCC CMPAY ‚ohne Sort,-Wert 
INX ; und Intervall- 95E7: 84 35 333 Sr Srsall 
INY ; ende retten 39EI. C5 65 554 CMP CHAR ‚vergleichen 
CPY #4 9S5EB: FO BA 355 BEQ CSLOOF ‚gleich, -> weiter 
BNE PUSH 9S5ED: 6% 538 RTS 
SlX SF ‚neuer Pointer S5EE: A5 62 337 RTNCS LDA RESULT ‚Länge als 
LDA LFTPTR ‚linker 95FB: C5 9D 338 CMP_ FAC ; Kriterium 
STA END ; Zeiger 95F2: 68 339 RTS 
LDA "LEFPTR+L ‚ ist neues 95F3: 18 348 RTNCSI1 CLC IA, < BAG 
STA END+l ‚ Intervallende 95F4: 6% 34] RTS 
JMP SUBSORT BER URS Ion 342 
| 343 %* Rechten Zeiger erniedrigen 
a Unterprogramme | 544 
eo 95F6: Ab 6 345 DECRIGHT LDA RGHTPTR ‚durch 
S5ET7: E5 EC 346 SBC LENGHT ;: Subtraktion 
* 2 Elemente vergleichen (mittleres und (A,Y) 95F9: 85 B6 347 STA RCHTPTR : der 
9S5FB: BO #2 348 BCS RTNDR ; Element- 
COMPARE STA DEST ‚Zeiger 95FD: C6 97 349 DEC RGHTPTR+1l ; länge 
STY DEST+1 ; eintragen S5FF: 6% 358 RTNDR RTS 
LDX INTFLAG ‚Integer? 
BPL COMPFP ‚nein, dann weiter 493 Bytes | 


* Integer-Zahlen vergleichen 


 _ QUICKSORT.DEMO 
COMPINT LDY +$ß9 ;Int. vergleichen 


LDA (DEST),Y 1ß PRINT CHR$ (4)"BRUN QUICKSORT" 

CMP  FAC ‚Zahlen liegen 28 DIM A(999) 

BCC CMPINTL 30 FOR I = Ö TO 999 

BNE CMPINTI AB A(I) = RND (1) = 1060 

INY ; im High/Low- 58 NEXT 

LDA {DEST),Y ; Format vor 68 PRINT CHR$ (7): & A: PRINT CHR$ (7) ’ 
CMP FACH 78 FOR I = ® TO 999 —) 
BEQ RTNCPI 88 PRINT A(I): NEXT => 





Peeker 1/86 19 





Vokabeln lernen mit dem Apple Il 


Da der Mensch bekanntlich nicht einseitig 
denken und arbeiten soll, ist es für jeden 
Apple-Besitzer mindestens genauso wich- 
tig, sich neben den künstlichen Sprachen 
wie Pascal, BASIC, Assembler usw. auch 
in natürlichen Sprachen zu üben. Falls Sie 
eine Fremdsprache erlernen möchten, ge- 
hört das Üben der jeweiligen Vokabeln 
unausweichlich dazu. Nachfolgend wird 
ein Programm beschrieben, mit dessen 
Hilfe Sie beliebige Vokabeldateien erstel- 
len und abfragen können. 
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Vokabeltrainer 


Wegen des ungewöhnlich großen Um- 
fangs des Programms (allein das Ap- 
plesoft-Listing würde über 8 Seiten ein- 
nehmen) und weil ein Teil der Routinen 
bereits an anderer Stelle erschienen ist, ist 
das Programmpaket nebst einer ca. 1000 
Vokabeln umfassenden deutsch-engli- 
schen Grundwortschatz-Datei nur auf der 
Peeker-Sammeldiskette enthalten. 


rar hd wi 


von Thomas Zink 
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1. Allgemeines 


Voraussetzung für die Benutzung des Vo- 
kabeltrainerprogramms sind ein Minimal- 
Apple-Il oder ein Kompatibler (40 Z/Z oh- 
ne Kleinschreibung genügt) mit einem 
Laufwerk und einer Language-Card, die 
allerdings nur für das Kopierprogramm be- 
nötigt wird. Bei der Benutzung sollte die 
Taste Shift-Lock eingerastet sein. 

Das Programmpaket besteht aus zwei BA- 
SIC- und sechs Assemblerprogrammen. 


BASIC-Programme: 


a. VOK.TRAINER - Eigentliches Vokabel- 
programm mit 9 Hauptmenü-Optionen 
(Ss.u.). 

b. VOK.COPY - Kleineres BASIC-Pro- 
gramm (über Option 7), das das Kopieren 
von Disketten steuert. 


Assembler-Hilfsprogramme: 


a. CATALOG - Generiert den für die Op- 
tionen 1-6 benötigten speziellen Katalog- 
ausdruck. 

b. FREI-SEK — Berechnet die Anzahl der 
freien Sektoren auf der im Laufwerk be- 
finglichen Diskette. 

c. GETLINE — Das normale Applesoft- 
INPUT interpretiert die Sonderzeichen 
m und „:" als Feldtrenner. GETLINE 
ermöglicht deren Eingabe von der Tastatur 
und einer Textdatei. 

d. DOS-LOS -— Bereitet eine DOS-lose 
Datendiskette vor. Ferner wird ein Boot- 
Programm mit einer Meldung auf Track 0, 
Sektor O geschrieben, damit der Computer 
beim versehentlichen Booten nicht ab- 
stürzt; auch für 40-Spur-Disketten. 

e. RWTS - Dient für die Programme a, b 
und d als Read-Write-Track-Sector-Routi- 
ne, d.h. zum Lesen und Schreiben von 
beliebigen Sektoren der Diskette. 

f. BCOPY - (Objekt-Code: VOK.BCOPY) 
— 1-Drive Kopierprogramm; auch für 40- 
Spur-Disketten. 

Die Routinen FREI-SEK, DOS-LOS, 
RWTS und BCOPY stammen aus „Apple 
DOS 3.3" von U. Stiehl, während die GET- 
LINE-Routine auf H. Grumser zurückgeht 
(Peeker, 5/85). 

Die Programme a-e sind unter dem Na- 
men VOK.PACK als Objektcode (von 
$8F60 bis $9465) zusammengefaßt. Das 
Kopierprogramm BCOPY wird als einzelne 
Datei ab $8000 abgelegt. Die Quellcode- 
Dateien der Maschinenprogramme befin- 
den sich aus Platzgründen nicht auf der 
Peeker-Sammeldisk. 


Einleitend ist vielleicht noch zu erwähnen, 
daß am Anfang des Vokabeltrainerpro- 
gramms der Reset-Vektor auf das Ap- 
plesoft-Kommando „RUN“ ($D655) ge- 
richtet wird, so daß beim Drücken der Re- 
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set-Taste das Programm neu startet. Fer- 
ner sei darauf hingewiesen, daß alle BA- 
SIC- und Maschinenprogramme, so weit 
es geht, mit Fehlerabfangroutinen ausge- 
stattet sind, die auf eventuelle Eingabe- 
oder Diskettenzugriffsfehler (z.B. Input/ 
Output-Error usw.) mit entsprechenden 
Hinweisen reagieren, um danach das Pro- 
gramm an geeigneter Stelle wieder fortzu- 
setzen. 


2. Hauptmenü von VOK.TRAINER 


Kurz nach dem Programmstart mit 

RUN VOK.TRAINER 

erscheint ein Menü, von dem aus Sie 9 
Teilprogramme oder Menü-Optionen aus- 
wählen können: 


(1) Vokabeln abfragen 
(2) Vokabeln hinzufügen 
(3) Vokabeln berichtigen 
(4) Neue Datei eröffnen 
(5) Datei löschen 

(6) Datei umbenennen 
(7) Disketten kopieren 
(8) Disketten formatieren 
(9) Quit (Ende) 


Während sich die ersten drei Optionen (1- 
3) auf das Äbfragen, Hinzufügen und Be- 
richtigen von Vokabeln beziehen, ermögli- 
chen Ihnen die nächsten drei Optionen (4- 
6) das Eröffnen, Löschen und Umbenen- 
nen von Vokabeldateien. Die nächsten 
beiden (7-8) schließlich gestatten die Ma- 
nipulation von Disketten, genauer gesagt 
das Kopieren und Formatieren. Und über 
Option 9 kann man schließlich das Pro- 
gramm beenden. Danach ist der Reset- 
Vektor wieder normalisiert. 


Die Beantwortung der einzelnen Unterop- 
tionen in den Teilprogrammen erfolgt über 
die Tastatur. Die erlaubten Tasten sind 
meistens am Ende des Textes angegeben. 
Generell ist anzumerken, daß Sie mit 
Wunsch) 

fast immer zum Hauptmenü zurückgelan- 
gen. Von dort aus eröffnet Ihnen die Taste 
ESC die Einsicht in eine siebenseitige Zu- 
sammenstellung der wichtigsten Tasten- 
belegungen in den einzelnen Teilpro- 
grammen. 

Bei den Optionen 1-6 werden Sie zu- 
nächst aufgefordert, den Namen der zu 
bearbeitenden Vokabeldatei einzugeben. 
In der Mitte des Bildschirms wird ein In- 
haltsverzeichnis der bereits vorhandenen 
Vokabeldateien aufgelistet und darunter 
die Anzahl der noch freien Sektoren auf 
der Diskette angezeigt. Überschreitet die 
Zahl der Dateien 18, so können Sie mit der 
Leertaste weitere auf der Diskette enthal- 
tene Dateien ausdrucken lassen oder mit 
Return den weiteren Ausdruck verhindern. 


4 schule 44 


3. Die VOK.TRAINER-Optionen 


Die Beschreibung der 8 Hauptmenu-Op- 
tionen entspricht nicht dem Bildschirm- 
Menü, sondern der Reihenfolge der Anla- 
ge einer neuen Datei. 


Option 8: 
Disketten formatieren 


Bevor der Computer Daten auf eine Dis- 
kette speichern kann, muß sie bekanntlich 
formatiert bzw. initialisiert werden. Über 
Option 8 wird die Diskette nicht wie sonst 
üblich mit 35 Tracks, sondern mit 40 
Tracks (entspricht 20K mehr Speicher- 
platz) initialisiert (Patch von Wolfgang 
Schöpe aus mc-Apple-Sonderheft, S. 23). 
Für diejenigen, die ein Laufwerk besitzen, 
welches nicht in der Lage ist, den Schreib/ 
Lesekopf über die Breite von 40 Tracks zu 
bewegen, kann auch mit 35 Tracks forma- 
tiert werden. Zur Gewinnung von weite- 
rem Speicherraum wird ferner eine DOS- 
lose Datendiskette vorbereitet (entspricht 
8K mehr Speicherplatz). Insgesamt sum- 
miert sich die verfügbare Speicherkapazi- 
tät der Diskette auf 124K (normal) + 20K 
+ 8K = 152K. 


Option 4: 
Neue Datei eröffnen 


Nach der Formatierung der Datendiskette 
können Vokabeldateien eingerichtet wer- 
den (Option 4). Zunächst geben Sie dazu 
der zukünftigen Datei einen Namen und 
legen nachfolgend die Sprache fest, in der 
Sie Vokabeln eingeben und abfragen 
möchten. Jede so von Ihnen eingerichtete 
Vokabeldatei wird im Inhaltsverzeichnis 
aufgelistet und repräsentiert auf der Dis- 
kette zwei einzelne Files, einen Binärtile 
„Name.INFO“ (enthält Informationen über 
Vokabelanzahl und Fehlerstufen, s.u.) und 
einen Textfie „Name.VOK“ (enthält die 
Vokabeln). 


Optionen 5 und 6: 
Datei löschen und umbenennen 


Zur einfacheren Handhabung der Vokabel- 
dateien ermöglichen die Optionen 5 und 6 
das gemeinsame Löschen und Umbenen- 
nen der Dateien „Name.INFO” und „Na- 
me.VOK“, 


Option 2: 
Vokabeln hinzufügen 


Das Abfragen der Vokabeln ergibt natür- 
lich erst dann einen Sinn, wenn Sie zuvor 
die abzufragenden Vokabeln eingegeben 
haben. Die Option 2 bietet hierzu die Mög- 
lichkeit. Es erscheint eine Bildschirmmas- 
ke auf dem Monitor, in der Sie links den 
Namen der zuvor gewählten Datei und 
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die kommen. 











Applesoft BASIC 
Bewegte 
Dee Apple-Grafik 
zur DOS Toolkit-Erweiterungen 
ProDOS-Analyse Pa 


Versionen 1.01, 1.02, 1.1.1 


LE 


FLz 


Frank Bühler 
Applesoft Basic 
Tips und Tricks 


1985, 241 S., 40 Abb., kart., 
DM 38,— 
ISBN 3-7785-1094-0 





Arne Schäpers 

Bewegte Apple-Grafik 
1985, 305 S., 6 Abb,, kart., 
DM 58,— 

ISBN 3-7785-1150-5 





Arne Schäpers 
ProDOS-Analyse 
Versionen 1.0.1, 1.0.2, 1.1.1 


1985, 470 S., kart., DM 68,— 
ISBN 3-7785-1134-3 
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j Ulrich Stiehl 
TIP" ProDOS für Aufsteiger 
Band 1 





2., geänderte Auflage 1985, 
208 S., kart., DM 28,— 
ISBN 3-7785-1098-3 


Ulrich Stiehl 
Apple DOS 3.3 
Tips und Tricks 





Ulrich Stiehl 3., völlig überarbeitete 
Ausgabe erscheint 

Apple Assembler Anfang 1986 

1984, 200 S., 3 Abb., kart., 

DM 34,— 


ISBN 3-7785-1047-9 


Weitere Titel und Informationen finden Sie in unserem Computerbuch-Katalog: 1] 


Dr. Alfred Hüthig Verlag, Postfach 10 28 69, 6900 Heidelberg 1 
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Ap Ä le-Assembler 
lernen 


Band 1: Einführung In die 
Assembler-Programmierung 





Jürgen Kehrel 
Assembler lernen 


Band 1: Einführung in die 
Assembler-Programmierung 
des 6502 


1985, ca. 200 S., kart., 
DM 38,— 
ISBN 3-7785-1151-3 


Tg TTS 


Mit ausführlichen 
ee Progranmbeispielen 





Ulrich Stiehl 


ProDOS für Aufsteiger 
Band 2 

1985, 207 S., kart., DM 30,— 
ISBN 3-7785-1036-3 
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INTUS-Lern- und 
| Anwenderprogramme 
für Apple Il - Computer 


e Rechtschreibtrainer 


für Deutsch DM 125,- — . 
e Rechtschreibtrainer 640 KByte-Drives für den Apple //c!! 
für Englisch DM 98,- @ 514- od. 31%2-Zoll-Format (Teac FD55/35-F) 
Fun : ® FD55-F umschaltbar auf 35/40 Track 
Qualität und Fortschritt, : ns an = DM 98 ® Anschluß an die exteme Laufwerkbuchse 
der sich bewährt hat! Ds 3 ® Durch Einbauplatine (kein Löten) 640 KByte im Direktzugriff 


Als Dankeschön für Ihr Vertrauen und die Französisch/Deutsct DM 98,- ® Einfache Anpassung für DOS 3.3, UCSD-Pascal und PRODOS 
große Nachfrage: e Maschineschreiben durch menügeführten Patch 

OPERATOR Il wie der Blitz DM 188, - @ Anpassung von CP/M in Verbindung mit einer Z 80-Zusatzplatine 
jetzt nurnoch in Vorbereitung 


e Basic-Lernprogramm, @ anschlußfertig im Gehäuse . - . . . . ... DM 1090, 


inkl. MwSt. sehr umfangreich DM 295,- 


Leistungstabelle: 


P : 6511 7 
rozessor RE | e Kinderschule, Lernen Festplatten für Apple Il (//e) 


@ 51/4 Zoll-Format (Slimline) 
@ Booten direkt von der Festplatte in DOS 3.3, UCSD-Pascal, 


Interface: parallel/seriell für Vorschulkinder DM 59,- 


Handshake wählbar: ö 
Kabel mit Stecker: e AppleGraph, Erstellen von Kreis 


Ausführliches Handbuch: 


Schaltplan: und Balken-Graphiken DM 125,- PRODOS und CP/M 2.2 /30 

Gehäuse: n ® Gemischibetr. mit 35/40/80/160 Track-Drives 
Deutsches Erzeugnis: e Rechenmodelle für : s 
ee} Alta ctenit Dumas | | & Gefknerainsiakenganns im Leforumtrg 
Barcodeanschluß: möglich e PriBu-Privatbuchhaltung DM 195,- ® z.B. 10 MB incl. Netzteil u. Contr., 


Passwortprogrammierbar: ja 


Gewicht: 1,9 kg +» und über 200 weitere Programme. anschlußfertig an Ihren Apple > a 8.2.08 . DM 3380,— 
Maße: 47x19x3cm 


Programmierbare Tasten: 3x38 Katalog gratis 

En er alle 3 beliebig e Demo-Disketten 640 KByte-Drives für Apple IL U / e) 

Frei programmierbar: irekt über mit 5-9 Teilprogrammen DM 10,- @ 51/4- od. 31%-Zoll-Format (Teac FD55/35-F) 

a » 6000 Frei-Programme (fast) gratis © Installationssofware für DOS 8.3, DICSD-Pascal CPM 2.2 
Programm-Lisie (Vorkasse) DM 10,- CP/M 2.23 (60K), PRODOS, AP22, ALSCPIM+ = 

® Umfangreiches Handbuch 

@ Anschlußfertige Auslieferung incl. Contr, und 2 Drives 

® Diskstation 55ll (2 Teac FD55-F, 1.2MB) . . . DM 1350,— 

® Diskstation 35ll (2 Teac FDS5-F, 1.2MB) . . . DM 1478,— 


INTus SOFTWAR! 80 Zeichen + 64 K für Apple //e 


® und jetzt hinsetzen . . . . DM 138,— 


Kein Datenverlust 

nach Abschalten: ja 

Max. Speicherkapazität: 1.6 kByte 

Pro Taste: 14 Byte 

Vorprogrammierung: — 

Autorepeat: 2 Geschwin- 
digkeiten 

Akustikgeber eingebaut: ja 

Lieferung per Nachnahme zzgl, Versandspesen. 

Ausführliches Info gegen Freiumschlag. 


AFC Computer GmbH 
Salmstr. 20 »- 5000 Köln 91 


Tel. 02 21/83 80 00, Telex 8 873 254 afc Kaiserstr. 21, 7890 Waldshut, 


Tel. 07751-7920 


e CPU MC 68000, 10 M Hz - CPU MC 68020, 16 M Hz 
für e DRAM ab 512K Byte 
| e Modula-2 Compiler 
Ausgabe 3/86 a re u 
ist am 17. 1. 86 ni re 


A n ze | 9 e n SC h | u ß Das modulare 16/32-Bit Computer-System GEPARD 
e Über 30 versch. Steckkarten im Europaformat (100 x 160 mm) 
auch", und ! 
© CP/M®-68 K ce ih 
Apple Il und Commodore ab DM 2.598,- 


Informationsmaterial kostenlos: Tel.: 04 41/7 40 84 


GmbH + Co.KG, Westerstr. 10-12, 2900 Oldenburg 


NSS w = U ü h nn \ ’ \ [ T | N I 1 N N 0 N N n 7, ES j 
K er erh It EHI IV F /; 
T I Mo me Wr we # 14 u Ri RS Ne 
N — = “Pi; j i 













L nr 7 7 77 7 











QD 


MM. ib ü ui 
v 
3 s i i 
ü z " De 4 E = E 
a E 







ee N ’ 
B30,- BF GEHE En FH 
52 Kompatible re : e @ f 
Komp 48 ür ppi | . 
48 K. 6502 ohne Firmware 4 - 
64 K, 6502, Z-80, 15er-Block ee 1 mit Sorlswitch, naue Fe 
nokia © 840,— —Z Diskinterace 2 69; Vers. m. gest. scharf. Bild — 
TE — Kompbas — = CORLDWER.INISNE MENGE 9- Speech-Karte u — 
wie Komp 64, jedoch mit abgesetzter 15-K-RAM-Karte 2 2 „ Si- Giock-Karte 129,- — 
Tastatur mit 188 Funktionen. : : RS-232-Karte 109,- Super-SerialKkarte — — 199,- — 
! Motherboard 48 K 399,- „7, Eprommer (4,8, 16K) 10- Komme a 
a Mn | PTUIEBT AN, U, 9 3 32187 Komp 2E 17- ZE 1 
oe ER, ine Kim ee 4, 128-K-RAM-Karte 279,- Apple 2E kompatible, Rechner = 
hervor — A 256-KB-RAM-Karte u8,- = en ohne un N 
NS wie oben, mit 6502 und 39 Klaus Jeschke Er. hie a für 2E kompatible " Die 
od a Fi ri gr : FFFERUTEEEEIFERNURREER nasse k: Hard-, Software #: © iR. R Ne, £ 
y VI ZI Et 1 1 1 001 iqyiıı x ans „ Händleranfragen erwünscht! Apple-Info 1,- DM ‚Forlo) Ben 


Alle Preise inklusive Mehrwertsteuer. 6 Monate | 4 4 A AN 6233 Kelkheim 
Garantie Versand erfolgt per NN oder Vorkasse 4 X N X 3 (05198) 7523 


og: ii: em u® 
Fa es bi fl | |, h (® 





Peeker 1/86 23 


rechts die Anzahl der bereits eingegebe- 
nen Buchstaben (anfangs natürlich null) 
und die laufende Nummer der Vokabel (1, 
2, 3 .„.) erkennen können. Der Cursor 
steht auf der ersten Eingabezeile. Dort 
geben Sie den ausländischen Teil der Vo- 
kabel ein und schließen die Eingabe mit 
Return ab. Es folgt die Übersetzung (Ende 
wieder mit Return). Die nun erscheinende 
Zeile erlaubt Ihnen folgende Möglich- 
keiten: 

—- (in Ordnung) J: Abspeicherung der Vo- 
kabel 

— (in Ordnung) N: Korrektur der Vokabel 
—- RTN: Beendigung der Eingabe mit Ab- 
speicherung der letzten Vokabel 

— E: wie RTN, jedoch ohne ÄAbspeicherung 
der letzten Vokabel 

— S: Sicherung der eingegebenen Voka- 
belanzahl in der INFO-Datei 

Unter S versteht das Programm das Ak- 
tualisieren der eingegebenen Vokabelan- 
zahl in der Informationsdatei, das norma- 
lerweise nur bei RTN oder E stattfindet. 
Bei der Eingabe einer größeren Vokabel- 
menge empfehle ich das Sichern der Vo- 
kabelanzahl nach ca. 100 Vokabeln, damit 
der Verlust bei Ausfall der Anlage gering 
bleibt. Es bleibt noch zu erwähnen, daß die 
Länge der gesamten Vokabel 50 Buchsta- 
ben und der deutsche oder fremdsprachli- 
che Anteil der Vokabel 35 Buchstaben 
nicht überschreiten darf. Daraus ergibt 
sich bei einer DOS-losen und mit 40 
Tracks initialisierten Datendiskette eine 
Speicherungsmöglichkeit von ca. 2850 
Vokabeln pro Diskettenseite. 


Option 3: 
Vokabeln berichtigen 


Eine andere Leistung des Programms be- 
steht darin, einzelne Vokabeln einer Datei 
zu berichtigen (Option 3). Voraussetzung 
dabei ist allerdings die Kenntnis der lau- 
fenden Nummer (L) oder des fremd- 
sprachlichen Anteils (F) der Vokabel (also 
z.B. BOOK für BUCH). Die laufende Num- 
mer steht, wie bereits erwähnt, beim Hin- 
zufügen sowie beim Abfragen in der rech- 
ten Ecke des Bildschirms. L muß in Tau- 
sender- (T), Hunderter- (H), Zehner- (Z) 
und Einer- (E) Stellen eingegeben wer- 
den. Der Zugriff auf die Diskette erfolgt 
direkt und der Apple findet die Vokabel in 
sehr kurzer Zeit. Bei F hingegen muß dem 
Programm der fremdsprachliche Begriff 
mitgeteilt und — das ist wichtig — in der 
gleichen Schreibweise wie der entspre- 
chende Vokabelanteil in der Datei einge- 
geben werden, d.h. auch die Leerstellen 
sind von Bedeutung. Dann sucht das Pro- 
gramm von vorne beginnend (bei der 1. 
Vokabel) die ganze Datei nach der ange- 
gebenen Vokabel ab. Dieser Suchvorgang 
kann bei einer größeren Datei sehr lange 
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dauern. Viel besser ist der Zugriff mit L. 
Hat Ihr Apple die Vokabel gefunden, liegt 
es an Ihnen, diese zu berichtigen. 


Bei der danach erscheinenden Menüzeile 
stehen Ihnen vier Möglichkeiten zur Aus- 
wahl: 

— (In Ordnung) J: Abspeicherung der Kor- 
rektur 

—- (In Ordnund) N: Korrektur der Korrektur 
- E: Ende ohne Abspeicherung der Kor- 
rektur 

— W: zum Menü 


Option 1: 
Vokabeln abfragen 


Das eigentliche Lernen der Vokabeln be- 
ginnt über Option 1. Es existiert eine gan- 
ze Reihe von Möglichkeiten, die Vokabeln 
abzufragen. Allen gemeinsam ist das Be- 
grenzen des abzufragenden Vokabelbe- 
reichs. Nehmen wir einmal an, die Datei 
enthalte 2000 Vokabeln, die der Lernende 
nicht kennt. Dann ist es wohl kaum sinn- 
voll, sofort den ganzen Bereich abzufra- 
gen. Aus diesem Grund gestattet das Pro- 
gramm, mit einer unteren (z.B. 500) und 
einer oberen (z.B. 550) Grenze den zu 
lernenden Bereich zu limitieren. Weiterhin 
ist bei allen Abfragemöglichkeiten die 
Festlegung der Abfragerichtung (z.B. Eng- 
lisch/Deutsch oder Deutsch/Englisch) ob- 
ligatorisch. 

Nach der Eingabe des Dateinamens und 
der Festlegung der Grenzen (untere und 
obere) müssen Sie sich entscheiden, ob 
der Computer abhängig von einer Fehler- 
hilfe abfragen soll oder nicht. 

Was bedeutet nun die Fehlerhilfe? Die In- 
formationsdatei (Name.INFO) enthält ne- 
ben der eingegebenen Vokabelanzahl zu 
jeder Vokabel eine Fehlerstufe (1, 2 oder 
3). Unter der Fehlerhilfe versteht das Pro- 
gramm die Benutzung dieser Fehlerstufen 
beim Abfragen. 


Lernen mit/ohne Fehlerhilfe 


Bei der Lerntechnik ohne Fehlerhilfe ge- 
neriert der Apple eine Zufallszahl zwi- 
schen der unteren und oberen Grenze des 
abzufragenden Vokabelbereichs und holt 
sich die jeweilige Vokabel von der Disket- 
te. Danach wird der deutsche oder fremd- 
sprachliche Anteil der Vokabel (je nach 
Wahl der Abfragerichtung) auf dem Moni- 
tor ausgegeben, und der blinkende Cursor 
fordert Sie zur Eingabe der Übersetzung 
auf, Nach Abschluß mit Return siellt der 
Apple seine und Ihre Übersetzung gegen- 
über. Mit E(nde) können Sie den ÄAbfrage- 
modus verlassen. 


Vor der Erklärung der Abfragetechnik mit 
Fehlerhilfe soll der Sinn der einzelnen 
Fehlerstufen näher erläutert werden. 


Eine neu hinzugefügte Vokabel besitzt zu- 
nächst die Fehlerstufe 1. Wird eine Voka- 
bel abgefragt und Sie wissen die Überset- 
zung, erhöht das Programm (wenn er- 
wünscht, s.u.) die begleitende Fehlerstufe 
von 1 auf 2, d.h. alle Vokabein, die von der 
Stufe 2 begleitet werden, haben Sie be- 
reits einmal richtig übersetzt. Bei nochma- 
liger Kenntnis der Übersetzung geht die 
Fehlerstufe 2 in die Stufe 3 über. Diese 
Vokabeln (in der Stufe 3) wurden dann von 
Ihnen mindestens zweimal richtig Üüber- 
setzt und müssen nur noch von Zeit zu 
Zeit wiederholt werden. Es kann aber auch 
vorkommen, daß eine einmalig richtig 
übersetzte Vokabel (Fehlerstufe 2) wieder 
in Vergessenheit gerät. In diesem Fall 
rutscht die begleitende Fehlerstufe von 2 
auf 1 zurück. Daraus ergibt sich also fol- 
gende Systematik: Die Vokabeln mit der 
Fehlerstufe 

— 1 kennen Sie noch nicht oder sehr 
schlecht, 

— 2 haben Sie mindestens einmal richtig 
übersetzt, 

— 3 haben Sie mindestens zweimal richtig 
übersetzt. 

Ziel ist es natürlich, alle Vokabeln in die 
Fehlerstufe 3 zu bekommen, um sie somit 
sicher erlernt zu haben. 


Bei der Abfragetechnik mit Fehlerhilfe er- 
wartet das Programm von Ihnen die Anga- 
be, ob die Änderungen der Fehlerstufen in 
der INFO-Datei (Name.INFO) eingetragen 
werden sollen oder nicht, d.h. Sie können 
sich abhängig von den Fehlerstufen abfra- 
gen lassen, ohne die neuen Fehlerstufen 
einzutragen. 

Natürlich gibt es auch die Möglichkeit, die 
Fehlerstufen auf 1 zurückzusetzen (zu lö- 
schen), d.h. in ihren Ausgangszustand zu 
versetzen. Dabei muß man zwischen dem 
Löschen der Fehlerstiufen des ausgewähl- 
ten, abzufragenden Vokabelbereichs (T = 
Teilbereich) und dem Löschen der Stufen 
aller Vokabeln (G = Gesamitbereich) diffe- 
renzieren. 

Schließlich gibt Ihnen der Apple noch die 
Verteilung der Fehlerstufen in dem zu ler- 
nenden Bereich an und fordert Sie auf, die 
Abfrageart genauer zu bestimmen. 

Es werden bei 

— 1: nur Vokabeln der Fehlerstufe 1, 

— 2: nur Vokabeln der Fehlerstufe 2, 

— 3: nur Vokabeln der Fehlerstufe 3, 

— A: alle Vokabeln im Fenhlerstufenverhält- 
nis 3/2/1, 

— R: alle Vokabeln im gewählten Bereich 
der Reihe nach abgefragt. 


Bei A erfolgt das Abfragen bei Gleichver- 
teilung (z.B. bei 30 Vokabeln: 10 Vokabeln 
der Stufe 1, 10 Vokabeln der Stufe 2 und 
10 Vokabeln der Stufe 3) der Fehlerstufen 
innerhalb der Grenzen im Abfrageverhält- 
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nis 3 Vokabeln der Stufe 1, 2 Vokabeln der 
Stufe 2, 1 Vokabel der Stufe 3. 

Haben Sie alle Angaben richtig beantwor- 
tet und die Abfragerichtung bestimmt, 
kann das eigentliche Lernen beginnen. 
Nach der Eingabe Ihrer Übersetzung (oder 
nur Return, falls Sie den Ausdruck nicht 
wissen) stellt das Programm seine Über- 
setzung gegenüber. Sie haben dann arei 
Möglichkeiten, die nun erscheinende Me- 
nüzeile zu beantworten: 

— (Zufrieden) J: Sie waren mit Ihrer Ant- 
wort zufrieden, und Ihr Apple ändert die 
entsprechende Fehlerstufe von 1 auf 2, 
von 2 auf 3 oder die Stufe 3 bleibt erhalten. 
— (Zufrieden) N: Sie waren mit Ihrer Änt- 
wort nicht zufrieden, und es erfolgt eine 
Fehlerstufenänderung von 3 auf 2, von 2 
auf 1 oder die Stufe 1 bleibt erhalten. 

— E: Beendigung des Abfragemodus. 


Es bleibt noch zu erwähnen, daß Sie bei 
Beantwortung der einzelnen Fragen mit S 
(selbe Parameter) alle Parameter (untere, 
obere Grenze, Fehlerhilfe, Abfragerich- 
tung usw.) bei der gleichen Datei neu wäh- 
len können. Bei der Angabe der unteren 
oder oberen Grenze des abzufragenden 
Bereichs bewirkt das Drücken auf die Ta- 
ste S das Übernehmen der alten, bereits 
bestimmten Grenzen. 


Option 7: 
Disketten kopieren 


Da sich das Eingeben der Vokabeln (Hin- 
zufügen) als sehr arbeitsintensiv erweist, 
ist es dringend zu empfehlen, von jeder 
Datendiskette eine Sicherungskopie anzu- 
fertigen, damit Sie bei Beschädigung der 
Originaldiskette auf die Kopie zurückgrei- 
fen können. Das Kopieren von Disketten 
gestattet Ihnen die Hauptmenü-Option 7. 
Damit für den Kopiervorgang genug Spei- 
cherplatz vorhanden ist, wird ein kleines 
BASIC-Programm mit dem Namen VOK- 
.COPY geladen. Das eigentliche Kopieren 
übernimmt allerdings ein Maschinenpro- 
gramm mit dem Namen VOK.BCOPY, wel- 
ches die Language-Card benötigt. Mit dem 
Drücken auf die Leertaste (Space) leiten 
Sie einen 40-Track- und mit „3“ einen 35- 
Track-Kopiervorgang ein. Der weitere Dia- 
log erfolgt mit der Leertaste. Es gibt jedoch 
eine Ausnahme: Ist die Zieldiskette nicht 
formatiert, können Sie nach dem ersten 
Einlegen der unbehandelten Diskette mit 
I(nit) statt Space eine Initialisierung der 
Disk vor dem Kopiervorgang erreichen. 
Nach vier Lese- und Schreibvorgängen ist 
das Duplizieren beendet. 
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4. Noch einen Tip 


Ich empfehle Ihnen, die Vokabeln in 50er- 
Schritten zu lernen (z.B. Vokabeln 1-50, 
dann 51-100 usw.). Bei neuen Vokabeln 
können Sie diese der Reihe nach (Abfra- 
geart R) ohne Fehlereintrag zunächst ein- 
mal kennenlernen. Danach fragen Sie nur 
Vokabeln der Fehlerstufe 1 (am Anfang 
oder nach dem Löschen sind alle Voka- 
beln in der Fehlerstufe 1) mit Fehlereintrag 
solange ab, bis Sie alle Vokabeln einmal 
richtig übersetzt haben, d.h. alle in der 
Fehlerstufe 2 enthalten sind. Jetzt ist es 
ratsam, eine Pause von einem oder meh- 
reren Tagen einzulegen und beim näch- 
sten Lerntermin die Fehlerstufe 2 solange 
abzufragen, bis alle Vokabeln entweder in 
die Stufe 1 zurückgefallen (vergessene 
Vokabeln) oder in die Stufe 3 aufgestiegen 
sind (zweimal richtig übersetzt). Mit den 
zurückgefallenen Vokabeln verfahren Sie 
wie am Anfang. Sie sind also solange zu 
wiederholen, bis alle wieder in die Stufe 2 
aufgerückt sind. Danach sollten Sie eine 
Pause einlegen (ca. 1 Tag) und darauf nur 
Vokabeln der Stufe 2 abfragen, bis einige 
nochmals in die Stufe 1 zurückgefallen 
und andere in die Stufe 3 aufgestiegen 
sind. Die Anzahl der in die Stufe 1 zurück- 
gleitenden Vokabeln wird immer kleiner 
werden. Am Schluß des Lernvorgangs be- 
finden sich (fast) alle Vokabeln in der Feh- 
lerstufe 93. 

Natürlich sollten Sie die gelernten Voka- 
bein von Zeit zu Zeit wieder auffrischen. 
Wenn Sie Ihre Englischkenntnisse vertie- 
fen oder auffrischen wollen, so können Sie 
auf die bereits eingegebene Datei zurück- 
greifen, die sich auf der Peeker-Sammel- 
diskette befindet. 


Kurzhinweise 


1. Zweck: 
Vokabellernprogramm 
2. Konfiguration: 
Apple II+/e/c; 40 Z/Z; Kleinschreibung 
nicht erforderlich; DOS 3.3 (ggf. für 40- 
Spur-Laufwerke); kein ProDOS! 

3. Test: 

RUN VOK.TRAINER 

dann über Menü-Option 1 (= Vokabeln 
abfragen) deutsch-englische Übungsdatei 
„GWS" einlesen. 

4. Sammeldisk: 

VOK.TRAINER (Hauptprogramm) 
VOK.COPY (Kopierprogramm) 
VOK.PACK (Trainer-Hilfsroutinen) 
VOK.BCOPY (Kopier-Hilfsroutine) 
GWS.INFO (Deutsch-Englisch-Info) 
GWS.VOK (Deutsch-Englisch-File) 


Ih 
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ı ProDOS-Editor 1.0 


Applesoft-Editor 
unter ProDOS-Beitriebssystem 


vonU. Stiehl 


1984, Diskette und Manual, DM 98,— 
ISBN 3-7785-1024-X 


Mit diesem neuen Editor — übrigens 
der bislang einzige deutsche Pro- 
DOS-Editor — wird dem Applesoft- 
Programmierer ein Werkzeug zur ef- 
fektiven Programmierung unter dem 
Betriebssystem ProDOS gegeben, 
denn die früheren Editoren sind alle- 
samt unter ProDOS nicht mehr lauf- 
fähig. 


| Unter anderem sind folgende Fea- 
tures implementiert worden: 


— Zeilenorientierter Editor mit jedem er- 
denklichen Redigierkomfort (Insert, 
Delete, Tab, Restore, freie Cursorbe- 
wegung in allen vier Richtungen, Einga- 
be von Cirl-Buchstaben in Applesoft- 
Zeilen usw.) 

Renumber (Zeilen-Umnumerierung) 
Xreference (sortierte Variablenliste) 
Suchen von Tokens, Strings und Varia- 
blen 

dezimale und hexadezimale Umrech- 
nungen 

Ausführung von Monitorbefenlen aus 
dem Editor heraus 

Listen des Applesoft-Programms in 
speicherinterner Form als Hex-Dump 
Suchen von Hex-Folgen, Adressen 
oder Speicherstellen im gesamten 
RAM-Bereich einschließlich der 
Language-Card 


— frei definierbare Tastatur-Macrobefehle 


Der Applesoft-Editor liegt in einem 
von ProDOS geschützten Bereich 
und läßt sich per Tastendruck vor- 
übergehend abschalten und ebenso 
einfach wieder aktivieren. 


Gerätevoraussetzung: Apple II+, Ile 
oder IIc, 40 Zeichen/Zeile 


Hüthig Software Service, 
Postfach 10 28 69, 
D-6900 Heidelberg 
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Verkauf Software 


Apple: Public Domain: Pro 
Volume DM 15,- Games, Schach, 
Graphic u.v.a.m. Derw. Lehrerpro- 


gramme, ’Mini-Logo’! Gratisinfo: 
Fa. Walt. Muhle, Waldwinkel 3,2105 
Seevetal 3 


PIRATE DEFENCE 2.0 
Kopierschutz Gehört zu den 
sichersten Schutzsystemen 
Deutschlands. Für DOS, ProDOS, 
DIVERSI u. a. Info (50 Pf), Chr. 
Bregler, Tulpenstr. 2, 7519 Eppin- 
gen. Händleranfragen erw.! 


MULTIPLAN (Macintosch) 
DM 290 APPLE ACCESS (lle/llc) 
DM 120 dAdress (dBase II erford.) 
DM 120 dLager (dBase II erford.) 
DM 120 U, Blaseg 0 7529-408 


P-Code Disassembler DM 
50,-, K. Seiler, Willy-Andreas- 
Allee 1, 7500 Karlsruhe 1 


-Kredit-Programm- für App- 
le- Ile DM 40,- inkl. Must. Fa. 
Stampflmeier, 82 Rosenheim, von 
der Tannstr, 11 


Print Shop Newsroom eic. / 
Apple ändere ich für Ihr Drucker- 
IF! Disk-Copy für EHRING & ER- 
PHI Super-Prgm. auch PCTEXT/ 
PC-1500 Rüter Rah. Str. 65, 4955 
H. 057 03/672 


Apple Il-Spiele-Programmie- 
rung: Hires-Schrift und Sprites 
(Rout. mit Sourcefiles und Erklä- 
rung): Disk nur DM 28,- 

Tel: 0261/63586 


Orgin. Flight Simulator || 
100- die verlassene Burg 30,- 
T: 04101/34327 


| Verkauf Hardware 


128 auf 512K DM 798,— 
Bausatz DM 298,—, ab 17 h, 
Telefon 089/985889 


Für weitere Informationen zu einem 





Centronic Parallel Grafik 
Interface, DM 140 VHB, T: 061 42/ 
603443 


Fernschreiberinterface am 
Gameport m. Programm DM 79,- 
P. Benner, Hubertusstr. 131, 4150 
Krefeld 


Apple II komp. mit 80 Zeichen- 
Pal-V24-Karten u. Paddle User- 
Buch für DM 700,--, T. 06202/16513 


Apple Iic Monit. Maus, 
Joyst. Imagewriter, Olivetti-Pra- 
xis 30 mit Seriellem Interf., 6 Mon. 
Tel: 02161/26698 


NEC P2 incl. V. 24, Autom. 
Einzelblatteinzug, Kabel für Apple 
Ic od. MAC, 7 Farbbänder statt NP 
3428 nur DM 2308. T: 08806/ 
338 


Soundchaser Musik-System 
mit Softw. & Keyboard, Tel: 
04743/5500 


Appie Il + kompatibler IBM 
Gehäuse 64 KB+Z80 900,- 
Laufwerk TEAC 55F 400,- ERPHI 
kon; 250 T: 04101/34327 


Matrixdrucker Gemini 10X, 
Thermodrucker Trendcom 200, 2 
Cumana LW, IF (Text-Graph), 80Z, 
Monitor, kompl. DM 1350,-, Mo- 
Do 02173/30384, Fr-So 0641 / 
33169 


Apple II komp. Z80, 802, Er- 
phi-Cont., 2X620K Lw, Wordstar- 
Tastatur, Monitor, Softw., DM 2800 
Tel: 0831/95558 


Verk. Apple lic + Monitor 
+UCSD Pascal + Reference ma- 
nual Vol. 1 und 2. T: 089/ 
8507173 ab 18 h. 


Apple Il-+ orig., 64K, VB DM 
2400,- 80Z-Karte 1/2 Jahr für DM 
120,- Tel: 06103/34290 


Video-Interface zum Ein- 
blenden von Schriften mit dem 
Apple II DM 1075,- bei Ulrich Kall- 
weit, Haus Mallinckrodt, 5802 Wet- 
ter 1 


Apple Ilc + Lit. + ASS.-Tools 
u. ASS.- Kurs, VB DM 2600, 089 / 
6.123752 


Tastatur, programmierbar !. 
Apple I! im IBM-Look VB. DM 200 
T: 0203/47 1265 


Apple Ilc, 2.LW, Maas; CP/NV- 
Karte, Software, VB DM 4600; 
0221/761845 


Verkaufe Drucker-Star mit 
Graf-Star Karte zus. DM 700, - 
Tel: 02384/3909 


APPLE REPARATUREN 
(auch compatible M-boards, z.B. 
Atlas, Arca, CES, Datastar, 
Dipa, Lasar, Mewa, 

PC-48 + 64, Plato, Radix, o. 
ae.) sowie Zusatzkarten und 
Disk-Drives führt unser Speziali- 
stenteam mit mehr als 5-jähriger 
Kunden- und Reparatur-Dienst-Er- 
fahrung, garantiert zuverlässig und 
besonders kostengünstig aus. 
Bitte genaue Fehlerangabe sowie 
Tel. Nr. für evtl. Rückfragen nicht 
vergessen. 

Auf Wunsch Kostenvoranschlag. 
aaa-electronic gmbh 
Habsburgerstr. 134, 7800 Freiburg, 
Tel. 0761/276864, Tx. 772642 aaad 


Hard- und Software für Apple- 
Computer gesucht. Wer schreibt 
gute Software? Auch Gebrauchtes 
angenehm. Zahle Höchsipreise! 
Suche noch Leute, die nebenbei 
verdienen wollen. Zuschriften 
Chiffre P1005 


PEEKER 449994 


** Neue Bücher für den Apple Il xx 
Elektronik- und Graphik-Pro- 
gramme 

Die Programm-Fundgrube zu fol- 
genden Themen: Statistik, Filter, 
Netzwerke, Laplace- und Fourier- 
Transf., Komplexe Rechnung, Dia- 
gramme usw., zahlr. Abb., 184 S., 
16,5 x 23,5 cm, DM 39,80 

Apple II — leicht program- 
miert 

Der Wegweiser zum eigenen Pro- 
gramm: Zählen, Schleifen, Strings, 
Eingabe, Druckformatierung, Adress- 
verw. usw., 96 S., 16,5 x 23,5 cm, 
DM 22,80 

BASIC-Tricks für den Apple Ill 
Die Trickkiste für die professionelle 
Programmgestaltung: Eingabe, Me- 
nüs, Sortieren, Listengestaltung, 
Fehlererkennung/Korrektur, Datei- 
en usw., 144 S., 16,5 x 23,5 cm, 
DM 29,80 

Bei Bestellung bitte DM 2,50 für 
Porto und Verpackung addieren. 
beam-Verlag, 

Pf. 1148P, 355 Marburg 


KRRRRRITFTIITEORRRRRRRIEKIOR 


Ankauf Hardware 


Günstiges auch gebrauch- 
tes Koala Pad o. ä. für A. II+ 
T: 021 96/2463 


Ankauf Software | 


Datenbank Literaturverwal- 
tung für Apple Ile sucht 
Telefon 06162/73233 


Komfortable Apple Fak- 
turierung ges. für PRODOS, mit 
Statistik, Gutschrift, Rückstand, 
USW. 


Suche Spiele für Apple 
T: 02302/89694 


der in dieser Ausgabe vorgestellten 
Produkte stehen Ihnen die Produktkarten zur Verfügung 


Bitte verwenden Sie für Kleinanzeigen die vorgedruckten Antwortkarten in 
diesem Heft. 
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Ja, ich möchte Peeker abonnieren. 


Liefern Sie mir Peeker ab Ausgabe ............... zum Jahresbezugspreis 
von DM 72,- (Inland) inkl. MwSt. Die Lieferung erfolgt frei Haus. Porto, Verpak- 
kung und Zustellgebühren übernimmt der Verlag. Der Jahresbezugspreis für das 
Ausland beträgt DM 72,- inkl. MwSt., zzgl. DM 18,—- Versandspesen. 








Für Ihre Unterlagen 
Abonnement bestellt 


am: 


Vertrauensgarantie: 

Ich habe davon Kenntnis genommen, 
daß ich die Bestellung schriftlich 
durch Mitteilung an den Dr. Alfred 
Hüthig Verlag, Postfach 102869, 
6900 Heidelberg 1 innerhalb von 7 
Tagen widerrufen kann. Zur Frist- 
wahrung genügt die rechtzeitige Ab- 
sendung des Widerrufs (Datum des 
Poststempels). 


Ich wünsche jährliche Berechnung durch: 
[_] Verlagsrechnung [_] Abbuchung von meinem Bank- 
bzw. Postscheckkonto 





a Abo-Karte 


Peeker Bank / PschA = — 
Leserservice 
Postfach 102869 Bankleitzahl Kto.-Nr, . 
6900 Heidelberg 1 
Datum u Unterschrift 5 





Für Ihre Unterlagen 
Folgende Bücher bestellt: 





EEKER 494 


Bitte senden Sie mir gegen Rechnung folgende Bücher: 





am: 
bei: 





Peeker 
Versandbuchhandlung 


Postfach 102869 
6900 Heidelberg 1 


Für Ihre Unterlagen cel (ER 
Folgende Disketten | | | 
und Programme bestellt: 


Bitte senden Sie mir gegen Rechnung folgende Disketten: 





Datum . Unterschrift 


aa Buch-Karte 








[] Peeker-Sammeldiskette, einzeln DJ Apple DOS 3.3, Begleitdiskette, DM 28,- 
Disk# _____, Disk# DI ProDOS, Band 1, Begleitdiskette, DM 28,- 
Disk# —____—_, Disk# DI) ProDOS, Band 2, Begleitdiskette, DM 28,- 
Preis je Disk DM 28,- (einzeln) U] Apple Assembler, Begleitdiskette, DM 28,- 
j fi} Peeker-Sammeldiskette, OD ProDOS-Editor 1.0, Programm, DM 98,- 
im Fortsetzungsbezug [I] MMU 2.0, Programm, DM 98,- 
ab Disk # [I INPUT 2.0, Programm, DM 98,— 
A (Mindestbezug 6 Disketten) DI Softbreaker 1.0, Programm, DM 48,— 
Preis je Disk DM 20,- [| DB-Meister, Programm, DM 290,— 
bei: Neben DOS-Disketten auch liefern = a cum gu ns 
DU CP/M ja DI CP/M nein uperquick, Frogramm, = 
Peeker I 


® Pascal ja ® Pascal nein Turtle Graphics, Programm, DM 98,- 


Softwareabteilung 
Postfach 102869 
6900 Heidelberg 1 


Datum Unterschrift 


2 
x 
Q 
O 
2 
O 
> 
. 





aa Abo-Karte 


| E Telefon mit Vorwahl 
| 











wa Buch-Karte 





® 
= 





Name 
Firma 
Abtellung 


Straße 


PLZ/Ort 
Vertrauensgarantie: 
Ich habe davon Kenntnis genommen, daß ich die Bestellung 
schriftlich durch Mitteilung an den Dr. Alfred Hüthig Verlag, 
Postfach 102869, 6900 Heidelberg 1 innerhalb von 

14 Tagen widerrufen kann. Zur Fristwahrung genügt die 
rechtzeitige Absendung des Widerrufs (Datum des 
Posistempels). 





Dalum 


Unterschrift 


Verlagshinwels: 

Das Abonnement verlängert sich zu den jeweils gültigen 
Bedingungen um ein Jahr, wenn es nicht 2 Monate vor 
Jahresende schriftlich gekündigt wird. 





Karte bitte vollständig ausfüllen 


Vorname, Name 


= 
3 
& 


Strafe 


PLZ/Ort 


Telefon mit Vorwahl 





Karte bitte vollständig ausfüllen 


Vorname, Name 


Siraße 


PLOR 


POSTKARTE 


Peeker 
Leserservice 


Dr. Alfred Hüthig Verlag 
Postfach 10 2869 
6900 Heidelberg 1 


POSTKARTE 


Peeker 
Buchabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


POSTKARTE 


Peeker 
Softwareabteilung 


Dr. Alfred Hüthig Verlag 
Postfach 102869 
6900 Heidelberg 1 


INPUT 2.0 


Ein Bildschirm- 
Maskengenerator 

für DOS 3.3 und ProDOS 

von U. Stieh! 

1984, Diskette und Manual, DM 98,- 

ISBN 3-7785-1021-5 

„Input 2.0" liegt wahlweise in der Bank 1 
oder Bank 2 der Language Card und wird 
durch einen kurzen Driver in den unteren 
48K aufgerufen. 

Für jedes Feld der Bildschirmmaske lassen 
sich u.a. definieren: Feldlänge (bis zu 255 
Zeichen) — Vitab — Htab — Datentyp (insge- 
samt 8 Typen) - Scrollflag (starre oder dyna- 
mische Maske) — Ctriflag — Füllflag — Lösch- 
flag — Bildschirmflag (40- oder 80-Z-Darstel- 
lung). Innerhalb eines Eingabefeldes besteht 
jeder denkbare Redigierkomfort (Insert, De- 
lete, Rubout, Restore usw.). 
Gerätevoraussetzung: ‘Apple Ile oder lic; fer- 
ner Apple II+ im 40-Zeichenmodus 


MMU 2.0 


Memory Managements 
Utilities 

für die Apple Ile 64K-Karte 

DOS 3.3 (und ProDOS) 


von U. Stiehl 


1984, Diskette und Manual, DM 98,- 
ISBN 3-7787-1023-1 


Insgesamt enthält die neue „MMU 2.0°- 
Diskette über 25 Programme, die neue 
Einsatzmöglichkeiten für die Extended 80 
Column Card (erweiterte 80-Z-Karte = 
64K-Karte für den Apple Ile} erschließen. 
Ein Teil der Programme laufen auch auf 
dem Apple II Plus, doch ist „MMU 2.0" 
primär für 64K-Karte-Besitzer gedacht. 


Gerätevoraussetzung: Apple Ile mit 64K- 
Karte oder IIc 


Softbreaker 1.0 


Eine softwaremäßige Interrupt-Utility 
für die Apple lle 64K-Karte 


vonUW. Stiehl 


1984, Diskette und Manual, DM 48,— 
ISBN 3-7785-1022-3 


Softbreaker ist ein Assemblerprogramm, mit 
dessen Hilfe Programme, die sich von der 
64K-Karte (= Extended 80 Column Card für 
den Apple Ile) starten lassen, unterbrochen, 
gespeichert, geladen und exakt an der Stelle 
der Unterbrechung fortgeführt werden kön- 
nen. Dadurch ist es auch möglich, Siche- 
rungskopien von sogenannten kopierge- 
schützten Programmen herzustellen. 

Mit Softbreaker unterbrochene Programme 
werden komplett, d. h. die ganzen 64K ein- 
schließlich Language Card, in nur ca. 11 Se- 
kunden auf einer formatierten Diskette gesi- 
chert. 

Gerätevoraussetzung: Apple Ile mit 64K- 
Karte 


Hüthig Software Service, 
Postfach 10 28 69, D-6900 Heldelberg 


Kyan-Pascal 


Kyan-Pascal ist ein völlig neuartiges Pascal-System für den Apple Il+/e/c, das von der Firma Kyan Software in San Francisco 
entwickelt wurde und als Version 1.0 im April dieses Jahres erstmals ausgeliefert wurde. Inzwischen gibt es die neueste Version 


1.2 vom 14. August 1985. 


Vor- und Nachteile von Kyan-Pascal 


1. UCSD-Pascal-Implementierungen für 
den Apple Il laufen zwar unter dem 
6502-Prozessor und sind deshalb auf 
den Apple bestmöglich angepaßt, 
doch wird nur der relativ langsame 
Pseudo-Code erzeugt. Z80-Pascal- 
Implementierungen sind demgegen- 
über zwar in der Regel als Vollcompi- 
ter ausgelegt, doch wird erstens eine 
Z80-Karte benötigt und zweitens läßt 
die Anpassung an den Apple Il, z.B. 
bezüglich der HGR-Grafik, zu wün- 
schen übrig. 


Kyan-Pascal erzeugt einen echten 
6502-Objektcode. Es vereinigt damit 
die Geschwindigkeitsvorteile eines 
Vollcompilers mit der bestmöglichen 
Anpassung an den Apple Il. 


2. Kyan-Pascal läuft unter allen denkba- 
ren Apple-Konfigurationen (Il+/e/c). 
Man kann es bereits mit Nutzen ein- 
setzen, wenn man nur über eine Mini- 
malkonfiguration mit Apple II+/e oh- 
ne 80-Zeichenkarte und ohne zweites 
Laufwerk verfügt, weil auf der (unge- 
schützten) Programmdiskette noch 
über 40.000 Bytes für die Arbeitsdatei 
frei sind. Wer besser ausgestattet ist, 
kann eine 80-Zeichenkarte, ein zwei- 
tes Laufwerk sowie eine RAM-Disk 
verwenden. 


3. Kyan-Pascal läuft unter dem (mitge- 
lieferten) Betriebssystem ProDOS 
und kann deshalb auch in Verbindung 
mit größeren Massenspeichern (Fest- 
platten sowie 80-Spur-Disketten 
usw.) problemlos eingesetzt werden. 


4. Im wesentlichen besteht Kyan-Pascal 
aus einem sehr brauchbaren Full- 
screen-Editor (in zwei Versionen für 
40- und 80-Zeichendarstellung), der 
auch als Textverarbeitungsprogramm 
benutzt werden kann, einem Compi- 
ler und einer Runtime-Library (Biblio- 
theksdatei). 
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Fertig compilierte Programme können 
in Verbindung mit der Bibliotheksdatei 
unabhängig von Kyan-Pascal als Pro- 
DOS-Systemdateien gestartet wer- 
den. Die Weitergabe der Runtime- 
Library wird von der Firma Kyan Soft- 
ware ohne Zahlung von Lizenzgebühr 
gestattet. 


Kyan-Pascal-Befehlssatz lehnt 
sich eng an Standard-Pascal an, so 
daß beispielsweise Befehle wie GO- 
TOXY usw. fehlen. Für String-Verar- 
beitung und HGR-Grafik werden je- 
doch Include-Dateien mitgeliefert. 
Dieser zunächst gravierend erschei- 
nende Nachteil wird jedoch — wie wir 
meinen — durch zwei entscheidende 
Vorteile aufgehoben: 


a) Ein laufendes Kyan-Pascal-Pro- 
gramm befindet sich in der von Apple- 
soft her gewohnten Monitor-Umge- 
bung, d.h. der Pascal-READLN- 
Befehl wird z.B. durch die Monitor- 
Routine GETLN (entspricht dem 
Applesoft-INPUT-Befehl) realisiert. 
Der Aufruf von Monitor- oder gar 
Applesoft-ROM-Routinen ist deshalb, 
wenn man auf die Zero-Page Rück- 
sicht nimmt, grundsätzlich möglich. 


b) In einen Kyan-Pascal-Quelltext 
können beliebig viele echte 6502- 
Quelltexte eingebaut werden. Man 
kann deshalb Kyan-Pascal auch als 
6502-Assembler benutzen. Ein Bei- 
spiel-Programm macht dies deutli- 
cher: 


PROGRAM DEMO; 
BEGIN 
WRITELN ("Jetzt 6502’); 
4ra {Beginn Assembler} 
HOME EQU $FC58 
BELL EQU $FBDD 
JSR HOME ;Bildschirm löschen 
JSR BELL ;Piepston ausgeben 
{usw.} 
#+{Ende Assembler} 
WRITELN (Das war 6502'); 
END. 


* Diskette + 100seitiges Handbuch 


Auf diese Weise ist es prinzipiell 
möglich, beliebige Assemblerrouti- 
nen in Kyan-Pascal-Programme ein- 
zubauen und darüber hinaus die in 
Standard-Pascal nicht vorhandenen 
Befehle zu kompensieren. 


6. Kyan-Pascal scheint uns sowohl für 
Anfänger, insbesondere auch im 
Schulunterricht, als auch für Fortge- 
schrittene bestens geeignet zu sein. 
Anfänger können sich auf den Stan- 
dard-Befehlssatz beschränken, wäh- 
rend Fortgeschrittene die Assembler- 
Features ausnutzen können. Übri- 
gens erzeugt Kyan-Pascal beim 
Compilieren ein echtes 6502-Quell- 
code-Listing, und zwar auch für die 
Pascal-Befehle, so daß ein nachträgli- 
ches Optimieren des Assembler- 
Quellcodes möglich ist. 


Einladung zum Sammelbezug 


Kyan-Pascal kostet in den USA 69.95 
Dollar. Unter Berücksichtigung der Aus- 
landseinfuhr- und Überweisungskosten 
muß man umgerechnet über DM 200,- 
bezahlen. Damit Sie diese interessante 
Pascal-Implementierung so günstig wie 
möglich beziehen können, bieten wir 
Ihnen als Peeker-Serviceleistung die 
Teilnahme am Sammelbezug an. Als 
Stückpreis* haben wir DM 170,- (inkl. 
Porto, Verpackung und MwSt) festgelegt. 
Voraussetzung hierfür ist allerdings, daß 
eine ausreichende Anzahl von Vorbe- 
stellungen eingeht. Werten Sie bitte die- 
se Aktion als einen Versuch, Software im 
Sammelbezug preiswert zu erwerben. 
Sollten sich nicht genügend Interessen- 
ten melden, so müssen wir dieses 
Service-Angebot wieder vergessen. 
Kyan-Pascal ist freilich auch bei ein- 
schlägigen Importeuren {für z. Zt. ca. DM 
270,-) erhältlich. 


Wie wird’s gemacht? Senden Sie uns bis 
spätestens 31.1.1986 Ihre Bestellung über 
Kyan-Pascal zum Preis von DM 170,- inkl. 
Versandspesen. Teilnehmen können alle 
Peeker-Leser. Ihre Peeker-Redaktion 
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von Klaus Schäfer 


Die Grafik-Befehle des Applesoft-BASIC 
sind ziemlich spartanisch. Mit dem Ma- 
schinenprogramm AGE ist es möglich, ein 
Hires-Bild individuell zu verändern. Das 
Programm wird über den Ampersand-Vek- 
tor angesteuert und ist somit leicht in ei- 
nem BASIC-Programm einsetzbar. AGE- 
„DEMO zeigt eine Anwendung der neuen 
Befehle. 


1. Die neuen Befehle 


Das einfachste neue Kommando ist das &- 
Zeichen allein. Durch diesen Befehl wird 
eine Liste der verfügbaren Kommandos 
sowie deren Syntax ausgegeben: 


Verfügbare Kommandos: 


TURN <BUF>,<PART> 
REFLECT <BUF>,<PART> 
INVERT <BUF>,<PART> 
SWAP <BUF>,<BUF> 
COPY <BUF>,<BUF> 
MERGE <BUF>,<BUF> 
SHOW <BUF> 

SHRINK <BUF>,<PART> 
WIDE <BUF>,<PART> 


Die Parameter können sowohl als Zahlen 
als auch als Variablen angegeben werden. 
BUF steht für die Bildschirmseite. Dabei 
bedeutet 1 = HGR und 2 = HGR2. 

PART (im Bereich 0-4) gibt die folgenden 
Bildschirmausschnitte an: 

1 links oben (Zeile 0-95 und Spalte O- 


139); 

2 = rechts oben (Zeile 0-95 und Spalte 
140-279); 

3 = links unten (Zeile 96-191 und Spalte 
0-139); 

4 = rechts unten (Zeile 96-191 und Spal- 
te 140-279); 

0 = der ganze Bildschirm. 
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Allen folgenden Befehlen muß das &-Zei- 
chen vorangestellt werden. 

—- TURN dreht einen Bildschirmausschnitt 
um 180 Grad, das Bild wird also auf den 
Kopf gestellt. Die Parameter sind hierbei 
BUF, also entweder 1 für HGR oder 2 für 
HGR2, und PART im Bereich 0-4. 

- REFLECT spiegelt einen Bildschirmaus- 
schnitt (also spiegelverkehrte Darstellung 
des Bildes), wobei die Parameter die glei- 
chen sind wie bei TURN. 

— INVERT inveriiert einen Bildschirmaus- 
schnitt, d.h. es wird das Negativ des Bildes 
erzeugt: schwarz auf weiß wird weiß auf 
schwarz. Auch hier sind die Parameter 
wieder identisch. 

Die Befehle SWAP, COPY und MERGE 
befassen sich jetzt nicht mehr mit einem 
Bildausschnitt, sondern nur noch mit dem 


ganzen Bild. 

—- SWAP vertauscht die beiden Hires- 
Bilder. 

- COPY kopiert eine Bildschirmseite in die 
andere. 


— MERGE verschmeizti beide Bilder zu 
einem. Der erste Parameter BUF ist hier 
die Ausgangsseite, also 1 oder 2, der 
zweite Parameter BUF bezeichnet den Be- 
stimmungsbildschirm. 

— SHOW ist der einfachste Befehl. Er be- 
wirkt nur, daß die jeweilige Seite gezeigt 
wird, ohne diese zu löschen (was bei HGR 
oder HGR2 passieren würde). 

Die komplexesten Befehle sind WIDE und 
SHRINK. 

- SHRINK verkleinert ein ganzes Hires- 
Bild zu einem Viertel der Ursprungsgröße. 
Als Parameter ist hier BUF der Ausgangs- 
bildschirm (also die Seite, in der das zu 
verkleinernde Bild steht) und PART der 
Teil des anderen Bildschirms, in den ver- 
Kleinert werden soll. 

— WIDE kehrt die Wirkung von SHRINK 


ın Assembler 








um, vergrößert also ein Viertel-Bild zu ei- 
nem ganzen. Parameter hier sind die Aus- 
gangsseite BUF und der Viertel-Ausschnitt 
PART. Vergrößert wird wieder in die ande- 
re Seite. 


Beispiele: 


&INVERT 2,1 (invertiert HGR2 links oben). 
&TURN 1,0 (dreht die ganze HGR). 
&COPY 1,2 (kopiert HGR nach HGR2). 
&SWAP 1,2 (vertauscht HGR und HGR2). 
&MERGE 1,2 (vermischt HGR und HGR2 
in die HGR2). 

& SHOW 2 (zeigt HGR2). 

&WIDE 2,1 (vergrößert HGR2 links oben 
nach HGR) 

&SHRINK 2,4 (verkleinert HGR2 nach 
HGR rechts unten) 


2. Änderungsmöglichkeiten 


Das Programm kann recht einfach erwei- 
tert werden. Hierzu muß lediglich die 
Kommandotabelle (Zeile 131-160) sowie 
die Tabelle der Routinenadressen erwei- 
tert und die eigene Routine angehängt 
werden. Außerdem ist darauf zu achten, 
daß eveniuell die Startadresse des Pro- 
gramms geändert werden muß, da nur 
noch wenige Bytes bis HIMEM frei sind. 
Gekürzt werden kann noch leichter, da 
einfach das Kommando und die entspre- 
chende Adresse aus der Kommando- und 
Adreßtabelle gestrichen werden muß. Es 
genügt dann, die Routine einfach wegzu- 
lassen. 


3. Beschreibung der Routinen 


Das Programm wird unter DOS 3.3 mit 
BRUN AGE 

gestartet. Die Zeilen 36-49 initialisieren 
das Programm, d.h. der Ampersand-Vek- 
tor wird auf den Programmstart gerichtet 
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und HIMEM so gesetzt, daß es nicht durch 
Strings überschrieben wird. 

In Zeile 50-117 befindet sich der Com- 
mand-Interpreter. Hier werden die Kom- 
mandos aus der Kommandotabelle (131- 
160) der Reihe nach mit dem tatsächlich 
eingegebenen Kommando verglichen. 
Wenn in Leerzeichen erreicht wird, ist das 
richtige Kommando gefunden. Das Ende 
der Tabelle zeigt, daß kein gültiges Kom- 
mando gefunden wurde. Falls der Befehl 
guitig ist, wird die Adresse der Routine aus 
der Adreßtabelle entnommen und auf dem 
Stack abgelegt, um dann mit einem RTS 
angesprungen zu werden. 

Von 176-227 steht die Hauptroutine IN- 
VERT. Diese besteht aus einer großen 
Schleife, die die 192 Bildschirmzeilen 
durchzählt (als Zählregister dient das X- 
Register). Die Adresse der jeweiligen Zei- 
le steht in COUNT1, im Y-Register werden 
die 40 Bytes einer Zeile durchgezählt. (Je- 
des Byte besieht aus 3 Bits, wovon 7 
einen Punkt darstellen; 40 x 7 ergibt also 
unsere 280 Punkte in X-Richtung). 
REFLECT (228-300) arbeitet im Prinzip 
genauso, wobei hier jedoch nicht invertiert 
wird, sondern der am weitesten rechts ste- 
hende Punkt einer Zeile ganz nach links 
gesetzt wird usw. Dieses Verschieben in- 
nerhalb eines Bytes erledigt die Unterrou- 
tine ROTÄTE (556-586). 

Bei TURN (301-392) wird ähnlich wie beim 
Spiegeln innerhalb einer Zeile vertauscht, 
dann jedoch noch die oberste mit der un- 
tersten Zeile vertauscht. Die Zähler laufen 
wie bei REFLECT. 


AGE.DEMO 


189 REM AGE-Demo 

118 REM 

128 PRINT CHR$ (4)"BRUN AGE" 
138 REM Zeichnen des Bildes 
148 PRINT CHR$ (21) 

158 HGR : HGR2 : HCOLOR= 3 
168 FOR I = ß TO 279 STEP 4 
170 J=1Ix 96 / 148 

188 HPLOT 8,8 TO I,1Sl 

198 HPLOT 8,6 TO 279,J 

200 NEXT I 

21® REM Verkleinern nach HGR 
228 & SHOW 

238 FOR I = 1 TO 4: & SHRINK2,I: NEXT I 
248 REM Spiegeln und drehen 
25% & TURNL,1 

260 & REFLECTL,2 

278 & TURNL,2 

280 & REFLECTL,3 

298 & INVERTL,® 

3Ö® REM Noch einmal verkleinern 
3l@ FOrRI=1MA4 

32B & SHOW2 

33®d & SHRINKL,I 

349 NEXT I 

358 REM Drehen und wenden 
366 & TURN2,® 

378 & REFLECT2,® 

389 & SHOW 

398 REM Wieder vergrößern 
489 & WIDE2,1 
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COPY, SWAP und MERGE sind in einer 
Routine integriert (414-503). Auch hier 
werden wieder die 192 Bildschirmzeilen 
durchgezählt. Entweder wird eine Zeile auf 
die andere kopiert oder die zwei Zeilen 
werden vertauscht oder gemeinsam mit 
EOR verknüpft. 

Die folgende Unterroutine CALCCUR wird 
von fast jeder Hauptroutine benutzt. Hier 
wird die Adresse des am weitesten links 
stehenden Bytes einer Zeile (im X-Regi- 
sier) berechnet. Dies geschieht durch die 
Interpreter-Routine HPOSN. 

Noch einfacher ist die nächste Hauptrouti- 
ne SHOW zu verstehen. Hier werden nur 
die jeweiligen Softswitches betätigt, um 
die gewünschte Seite anzuzeigen. 

Die Zeilen 587-610 beinhalten die Unter- 
routine TESTBUF. Hier wird das eingege- 
bene Kommando darauf abgesucht, wel- 
che Grafik-Seite angesprochen werden 
soll. Diese Seite wird dann entsprechend 
gesetzt (Adresse $00E6 in der Zero Page). 
Ab 622 steht die Routine HILFE. Dieser 
Programmiteil gibt die Kommandotabelle 
auf dem Bildschirm aus. 

Die nächste Uhnterroutine wird von 
SHRINK verwendet, um zwei Bytes in ei- 
nes zu verwandeln. Dies geschieht da- 
durch, daß nur jedes zweite Bit eines 
Bytes, also nur jeder zweite Punkt, ver- 
wendet und hintereinander in ein Byte hin- 
eingeschoben wird. 

TESTPART ab Zeile 672 fragt das einge- 
gebene Kommando dahingehend ab, wel- 
cher Bildschirmausschnitt verlangt wird. 
Es werden dann in PAR + t undPAR + 2 


4A1Ö REM Kommandos zeigen 
428 TEXT : HOME 
a30 & 


AGE 
{nur Quellcode; Objektcode s.u.) 


ORG $91098 


AGE — Applesoft-Grafik- 
Erweiterung 


von Klaus Schäfer 


CO JO ARUMNDH 
EEK KHK 


“ 
| 


—— 
* 

COMCOUNT EQU 
01 EQU 
02 EQU 
Brrl EQU 
BYT2 EQU 
BYT3 EQU 
HBASL EQU 
HBASH EQU 
HIMEM EQU 
TATPNT EQU 
CHRGET EQU 
PAGE EQU 
COUNTl EQU 











Grafik 4 


die X- und Y-Koordinaten der linken, obe- 
ren Ecke eines Ausschnitts gespeichert. 
Die Routine SHRINK ab 707 schließlich 
verkleinert eine Grafik-Seite auf ein Vier- 
tel. Es werden hier zwei geschachtelte 
Schleifen verwendet, die erste zählt die 
Zeilen des ganzen Bildes, die zweite die 
des verkleinerten. SHMER verkleinert 
dann zwei Bytes zu einem, und da nur 
jede zweite Zeile des Originalbildes ver- 
wendet wird, ergibt sich eine Verkleine- 
rung auf ein Viertel. 

WIDE (Zeile 826 ff.) kehrt die Wirkung von 
SHRINK genau um. Es wird hier ein Byte 
verdoppelt, indem jedes Bit doppelt ge- 
speichert wird, und jede Zeile des Aus- 
schnitts wird im Ergebnis zweimal ver- 
wendet. 


Kurzhinweise 


1. Zweck: 

Ampersand-Erweiterung der Grafik-Be- 
fehle in Applesoft. 

2. Konfiguration: 

Apple Il+, Ile oder Ilc; DOS 3.3 (kein 
ProDOS wegen HIMEM-Änderung). 

3. Test: 

RUN AGE.DEMO 

4. Sammeldisk: 

AGE.DEMO 
(Applesoft-Demo-Programm) 

T.AGE 

(Big-Mac-Quelltext) 

AGE 

(Maschinenprogramm), 


COUNT2 EQU $FC 

z1 EQU $FE 

22 EQU $FF 

PAR EQU $3599 

AMPVEC EQU $3F5 

ERROR EQU $D412 

ADDON EQU $D998 

COMBYTE EQU $E74C 

GETBYTE EQU $E74F 

HPOSN EQU $EF4All 

GOUT EQU $FDED 

% 

* Hier wird die Adresse des 
* Anper-Interpreters in den 
* Vektor von Page 3 gepokt. 
u 


LDA #$4C 

STA AMPVEC 
LDA #<START 
STA AMPVEC+1 
STA HIMEM 
LDA #>START 
STA AMPVEC+2 
STA HIMEM+1 
RTS 


* 
* Der Amper-Interpreter prüft 

* die Kommandos auf ihre Syntax 
x 

5 


TART EBENE NORMCOM 
JMP HILFE 

NORMCOM LDX #$FF 
LDA #98 


31 


Memo. 


32 


* 
* 
+ 


STA CGOMCOUNT 


Initiaiisierung der Pointer 


STARTLO1 LDY #$FF 
STARTLO2 INX 


INY 
LDA COTABL,X 


wenn $2®, dann ist das Kommando 
gefunden, weil alle Buchstaben 
korrekt verglichen wurden. 


CMP_ #326 
BEQ GEFUNDEN 


Wenn das Ende der Kommando- 
tabelle erreicht wird, wurde 
das Kommando nicht gefunden. 


CMP_ #$FF 
BEQ SYNERR 


Jetzt wird mit dem eingetippten 
Zeichen verglichen, 


CMP (TXTPNT),Y 
BEQ STARTLO2 


wenn es nicht gleich ist, wird 
das nächste mögliche Komman- 
do verglichen. 


STARTLOS INX 


„kr KK 


LDA COTABL,X 
CMP *#$8D 

BNE STARTLO3 
INC COMCOUNT 
JMP STARTLOL 


Das Kommando wurde gefunden. 
Jetzt wird die Adresse aus 
einer anderen Tabelle geholt, 
um die Routine anzuspringen. 


GEFUNDEN LDA COMGOUNT 


YNERR 


ASL 

TAX 

LDA COTABZ+1,X 
PHA 

LDA COTAB2,X 
PHA 


Jetzt wird nur noch das Y-Reg. 
zum Textpsointer addiert, damit 
Applesoft später mit den 
nächsten Kommando fortfährt. 


JSR ADDON 
RTS 


Diese kleine Routine lädt das 
X-Register mit dem Code für 

den Syntax-Error und springt in 
die Applesoft-Fehlerroutine 


LDX #$16@ 
JMP ERROR 


Diese Tabelle enthält die 
Namen der Kommandos, die be- 
liebig geändert werden können 


ILFTABl HEX 80 


COTAB1l ASC 


ASC "VERFUEGBARE " 
ASC "KOMMANDOS:" 
HEX BDAD 
"TURN <BUF>' 
ASC ';<PART>! 
HEX 80 
ASC 'REFLECT <BUF>*' 
ASC ".;<PART>' 
HEX 80 
ASC "INMVERT <BUF>' 
ASC ",<PART>' 
HEX 80 
ASC "SAP ' 
'<BUF>, <BUF>"' 
ED 
"copy ' 
'<BUF>, <BUF>' 
80 





ASC 
ASC 
HEX 
ASC 
HEX 
ASC 
ASc 
HEX 
ASC 
ASC 
HEX 


tinen, die 
aufgerufen 


“*rRkakK»* 


COTAB2 DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 
DA 


| 
l 
l 
i 
i 
| 


aka 


ausschnitt 


H##*%* %* 


NVERT JSR 
JSR 
JSR 
LDX 

# 

* Jetzt wird 


l. Grafik-Routine: Invert 


Diese Routine invertiert den 
gewünschten Hires-Puffer. 


'MERGE ' 
'<BUF>, <BUF>' 
8D 

'SHOW <BUF>' 
8D 

'SHRINK <BUF>' 
',<PART>' 

8D 

'WIDE <BUF>' 
',<PART>'! 
8DFF 


Diese Tabelle enthält die 
Adressen der einzelnen Rou- 


durch ein RTS 
werden 


DREHEN-—1 
MIRROR-1 
INVERT-1 
TAUSCH-]1 
KOPIEREN-1 
MISCHEN-1 
ZEIGEN-1 
SHRINK-1 
WIDE-1 


= ar ha 


Der gewünschte Puffer- 


wird hier bestimmt 


TESTBUF 
TESTPART 
CALCEND 
PAR+Z 


die Adresse einer 


* Bildschirmzeile bestimmt. 


* 

INVLOLl JSR 
LDA 
STA 
LDA 
STA 


lang) wird 


KK KHKH 


LDY 
LDA 
EOR 
STA 
INY 


Ende einer 


CPY 
BNE 
INX 


Ende eines 
CPX 


BNE 
RTS 


kkkıkkke %* 


* 

MIRROR JSR 
JSR 
JSR 


2. Grafik-Routine: Spiegel 


Diese Routine spiegelt den 
gewünschten Hires-Puffer. 


CALCCUR 
HBASL 
COUNTI 
HBASH 
COUNTI+1 


Die Bildschirmzeile (49 Bytes 


hier invertiert.: 


Bsp: #Z1B@1P119 
EOR #%@1111111 
= #+Z3111810B1 


PAR+L 
(COUNTL),Y 
4$7F 
(COUNT1),Y 


Zeile? 
PAR+3 
INVLO2 


Ausschnitts? 


PAR+4 
ZNVLOIl 


“= tra H* a " 


TESTBUF 
TESTPART 
CALCEND 


* Bestimmung der Anfangszeile 
* 

LDX 

STX 


Bestimmung der letzten Zeile 


CL 

LDA 

ADC 

LSR 

STA 22 
* 


* Bestimmung der momentanen Zeile 


* 

MIRRLOl LDX Zi 
JSR GALCCUR 
LDA HBASL 
STA COUNTI 
LDA HBASH 
STA COUNTI+1 
LDY PAR+I 
sTY 91 
LDY PAR+3 
DEY 
SsTY 02 


Hier wird jedes Byte gespiegelt 


und von rückwärts wieder ein- 
gesetzt. 


IRRLO2 LDY Q1 
LDA {COUNTI),Y 
JSR ROTATE 
PHA 
LDY 92 
LDA (COUNTI),Y 
JSR ROTATE 
LDY gql 
STA (COUNTI),Y 
PLA 
LDY 02 
STA (COUNTL),Y 
INC Q1 
DEC Q2 


Zeile fertig? 


LDA Q1 
ECMP 22 
BNE MIRRLOZ 


Ausschnitt fertig? 


ING 21 
LDA 21 
CMP PAR+A 
BNE MIRRLOl 
RTS 
“ 
zn 
* 
* 3. Grafik-Routine: Drehen 
E 
* Diese Routine dreht den ge- 
* wünschten Hires-Puffer. 
* 


“kr 8 


R-—— menu nn nn 


* 


*+ Hier wird wieder der Puffer und 


* der Ausschnitt eingelesen. 
* 
DREHEN JSR TESTBUF 

JSR TESTPART 

JSR CALCEND 


In Z1 steht die Anfangszeile, 


LDA PAR+2 
STA Z1 


in Z2 die Endzeile 
LDX PAR#d 


DEX 
STX 22 
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* In dieser Schleife werden die 

* Zeilen durchgezählt. 

* 

TURNLO1 LDX Z1 
JSR CALCCUR 
LDA HBASL 
STA COUNTI 
LDA HBASH 
STA COUNTI+l 
LDX Z2 
JSR CALCCUR 
LDA HBASL 
STA COUNT2 
LDA HBASH 
STA COUNT2+1 


* in O2 abgelegt wird, PHA 
* LDX 
COPY JSR GETBYTE LDY 
CPX #1 JSR 
BEQ COP1 PLA 
CPX #2 TAX 
BEQ COP2 RTS 
LDX #$35 . 
JMP ERROR Bo 
LDA #$29 
STA 01 
BNE COP3 
LDA #$49 
STA Q1 
JSR COMBYTE 
cPX #1 
BEQ COP4 
CPX #2 EIGEN JSR TESTBUF 
BEQ COP5 LDA PAGE 
LDX +$35 CMP_ 3#$4 
JMP ERROR BEQ SEITE2 
LDA +#$28 * 
STA 92 * 
BNE COPS * 
COP5 LDA #+$49 * 
STA 02 * — $0059 für Graphik 
CoP6& LDX #9 | * - $C0852 für volle Graphik 
* 
# 
* 
# 
S 


5. Grafik-Routine: schaltet 
auf Hires-Seite <l> 0. <2>, 


HGR oder HGR2? 
01 ist der Zähler für die mo- 
mentane Byte-Position in einer 
Zeile; Q2 ist das letzte Byte. 


Nt tk we x %* 


“RK %* 


LDY PAR+l 
stYy 01 
LDY PAR+3 
DEY 

STY 02 


Ab hier werden nur noch die 
Softswitches betätigt: 


In dieser Schleife wird jede 
Zeile durchgezählt und gedreht STX 21 $0#57 für Hires-Graphik 
CoPYl EDX 2] $0854 für 1. Seite 
TURNLO2 LDY Ql * $C955 für 2. Seite 
LDA {COUNT1),Y 
JSR ROTATE 

PHA 

LDY 02 

LDA (COUNT2),Y 
JSR ROTATE 

LDY 91 

STA (COUNTL),Y 
PLA 

LDY 02 

STA (COUNT2),Y 
INC Q1 

DEC 02 


Jetzt werden wieder die Basis- 
adressen der Herkunfts- und Be- EITEl BIT $cß54 
stimmungszeile festgelegt. JMP SWITCH 
SEITE2 BIT %$CB55 
LDA 01 SWITCH BIT $C959 
STA PAGE BIT $c957 
JSR CALCCUR BIT $cCB52 
LDA HBASL RTS 
STA COUNTI 
LDA HBASH 
STA COUNTI+1 
LDX 21 
LDA 0Q2 
STA PAGE 
JSR CALCCUR 
LDA HBASL 
STA COUNT2 
LDA HBASH 
STA COUNT2+1 


Unterroutine: spiegelt 


Ende einer Zeile? 


LDA Q1 
CMP PAR+3 
BNE TURNLO2 


Hier wird ein einzelnes Byte 
gespiegelt z.B. #$91 zu #$49 


«rk Kerr KW 


ROTATE LDX #9 
Hier wird wieder jede Zeile ASL 
entweder kopiert, vertauscht BCC NOCARRY 
oder gemischt und im Zielpuffer LSR 
abgelegt. ROL 
ROR 

LDY #9 DEX 
COPY2 LDX BYTI BNE 
LDA ({COUNT1L),Y LDA 
CPX #9 ORA 
BEQ MOVE RTS 
CPX #1 | S% 
BEQ SWAP NOCARRY LSR 
EOR (COUNT2),Y NCRLO ROL 
SEC ROR 
BCS MOVE DEX 
PHA | BNE 
LDA (COUNT2),Y LDA 
STA (COUNTL),Y AND 
PLA RTS 
STA (COUNT2),Y 
INY 
CPY #40 
BNE COPY2 Unterroutine: testet, welcher 
INC Zı Puffer verlangt wurde (1/2). 
LDA 21 
CMP #192 
BNE GOPY1 
RTS 


INC 21 
DEC 22 


Bildschirm(-ausschnitt) fertig? 


“ak r* 


LDA 21 

CMP PAR+4 
BNE TURNLOL 
RTS 


* 


| 
| 
| 
Ä 
| 
| 
| 
| 
| 
N 
| 
H 


% 
Vorentscheidung:!: kopieren, * 
verschmelzen oder tauschen # 
“ 
. 


“ur Hr %* 


TAUSCH LDA #1 

BNE SETFLAG 
MISCHEN LDA #2 

BNE SETFLAG 
KOPIEREN LDA #9 


* 

* In BYTl wird festgelegt ob 
* — Tausch, dann ]1; 

* — Mischen, dann 2; 
* 
En 
S 


“tx a 5 


- Kopieren, dann ß. 
Hier wird nur der Puffer von 
ETFLAG STA BYT dem Kommando eingelesen. 


JMP COPY 


ak H 


TESTBUF UJSR GETBYTE 
Unterroutine: Berechnung CPX #1 
der neuen Cursor-Position BEQ BUF1 
cGPxX #2 
BEQ BUF?2 
LDX #$35 
Diese Routine benutzt die Mo- JMP ERROR 
nitor-HPOSN-Routine, die die LDA #329 
Adresse einer Zeile berechnet STA PAGE 
die sich im A-Reg. befindet. RTS 
LDA #$49 
ALCCUR TAA STA PAGE 


“ 


4. Grafik-Routine: bewegt, 
vertauscht oder verschnelzt 
die beiden Grafik-Seiten. 


Eee KHEH % 


Zuerst wird der Herkunft-Screen 
bestimmt und in Ql abgelegt, 
dann der Bestimmung-Screen, der 


KHK FKFEFKHH 
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RTS 

* 

nn 

* 

* 6, Routine: Hilfe — gibt die 
* möglichen Kommandos aus. 

# 

* 


Diese Routine benutzt die 
normale Kommandotabelle, so 
daß jede Anderung eines Kom- 
mandonamens richtig angezeigt 
wird (z,B. TURN -> DREHEN) 


HILFE LDA #<HILFTABL 
STA COUNTI 
LDA #>HILFTABI 
STA COUNTI+1 
LDY #9 

HILFLOl LDA (COUNTL),Y 
CMP_ &#SFF 
BEQ HILFEX1 
ORA #$8B 
INY 
JSR COUT 
BNE HILFLOl 


* 
HILFEX1 RTS 
* 


Unterroutine: verschmelzt 
zwei Bytes zu einem! 


Hier wird nur jedes zweite Bit 
x eines Bytes erfaßt, so daß 

man zwei in einem zusammenfas- 

sen kann. 


SHMER LDX 
SHMERLO ROL 
ROL 
ROL 
DEX 
BNE SHMERLO 
RTS 


* Unterroutine: Diese Routine 
* testet, welcher Teil eines 
* Puffers verlangt wird. 

“ 


u hr x 


B-— 


* 
x» Das ist recht einfach, da nur 
* die passenden X- und Y-Werte 
x gesetzt werden müssen. 

E. 


TESTPART JSR COMBYTE 
STX PAR 
cPX +4 
BEQ VIER 
cCPxX #3 
BEQ DREI 
CPX 32 
BEQ ZWEI 
cCPX #1 
BEQ EINS 
CPX #9 
BEQ NULL 
LDX #835 
JMP ERROR 
NOP 
LDA #99 
STA PARH+L 
LDA #69 
STA PAR+2 
BEQ TPEX 
LDA #29 
STA PAR+L 
LDA #9 
STA PAR+2 
BEQ TPEX 
LDA +00 
STA PAR+HL 
LDA #96 
STA PAR+2 
BNE TPEX 


4 
Ri 
el 
> 


7, Grafik-Routine: Shrink 
Diese Routine verkleinert 
einen ganzen Bildschirm zu 
einem Viertel-Bildschirm. 


*KHrHrkK—e + 


| 
| 
| 
| 
| 
Ä 
| 


Es wird wieder der Herkunfts- 
puffer sowie der Bestimmungs- 
1/4-Puffer festgestellt, 


Der Frh %* 


HRINK JSR TESTBUF 

JSR TESTPART 
LDX #8 

STX 21 

LDX PAR+2 
ST Z2 

LDA PAGE 

EOR #+$6$ 

STA PAGE 


Wieder die Feststellung der 
Anfangsadresse 


SHRINKlL LDA PAGE 
EOR #569 
STA PAGE 
LDX 21 
JSR GALCCUR 
LDA HBASL 
STA COUNTI 
LDA HBASH 
STA COUNTI+1 
LDA PAGE 
EOR #$69 
STA PAGE 


* 
* sowie der Bestimmungsadresse 
* 


LDX 22 

JSR GALCCUR 
LDA HBASL 
STA COUNTZ2 
LDA HBASH 
STA COUNT2+1 
LDY #89 

STY Q1l 

LDY PAR+Il 
STY 02 


In dieser Schleife wird jedes 
Byte zusammen mit einem anderen 
zu einem Zusammengepreßt, und 
dann in den Zielpuffer 
übertragen. 


HRINK2 LDY 91 
INY 
LDA (COUNT1L),Y 
JSR SHMER 
DEY 
LDA (COUNT1},Y 
ROL 
JSR SHMER 
LDY 92 
LDA BYT1 
STA (COUNT2),Y 
ING 01 
ING 91 
INC 92 


Ende einer Zeile? 


LDA 01 

CMP #40 
BNE SHRINK2 
ING Z1 

ING Z1 

INC 22 


Ende des Screens? 


LDA 21 
CMP #192 


rk 


BNE SHRINKI1 
RTS 


Unterroutine: Galcend 
Berechnet das Ende eines 
Viertel-Screens. 


* In dieser Unterroutine werden 
* die X- und die Y-Koordinate 
* der rechten unteren Ecke eines 
* 1/4-Puffers festgestellt. 
* 
CALCEND LDA PAR 
BEQ GANZ 
GLC 
LDA PAR+ 
ADC #29 
STA PAR+3 
BEE 
LDA PAR+2 
ADC #96 
STA PAR+4 
RTS 
LDA +49 
STA PAR+3 
LDA #192 
STA PAR+4 
RTS 
x 
k-——————— -—x 
* 
7. Grafik-Routine: Hier wird 
1/4-Puffer zu einem ganzen 
Screen vergrößert. 


TESTBUF und TESTPART stellen 
wieder den Herkunft-1/4-Screen 
und den Bestimmung-Screen fest, 


IDE JSR TESTBUF 
JSR TESTPART 


Anfangszeile/Endzeile 


LDX PAR+2 
sa. 021 
LDX #% 
STX 22 
LDX #9 
SEA. Bi le 

* 

* Hier werden wieder die Zeilen 

* durchgezählt. 

# 

WIDEI LDX Zi 
JSR CALCCGUR 
LDA HBASL 
STA COUNTL 
LDA HBASH 
STA COUNTI+ 
LDA PAGE 
EOR #$69 
STA PAGE 
LDX Z2 
JSR CALCCUR 
LDA HBASL 
STA GCOUNTZ 
LDA HBASH 
STA COUNT2+Ll 
LDA PAGE 
EOR #$69 
STA PAGE 
LDY PAR+Ll 
a nl 
LDY #9 
STY 02 


In dieser Schleife wird jede 
Zeile verdoppelt sowie jedes 
Byte ebenfalls bitweise verdop- 
pelt (z.B #581 ->#$93) 


IDE2 LDY 91 
LDA ({COUNTI1),Y 
JSR WIDEIT 
LDY 02 
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Si u 


INY 
LDA 
STA 
DEY 
LDA 
STA 
INC 
INC 
ING 
* 


BSLl 
(COUNT2) ,Y 


BYT2 
[COUNT2) ,Y 
Ql 

Q2 

02 


+ Ende der Zeile? 


* 
LDA 
CMP 
BNE 
LDA 
BEO 
INC 
LDA 
EOR 
STA 
ING 

* 


02 
#40 
WIDE2 
ByYIS 
NOING 
2l 
BYT3 
#601 
BYT3 
22 


* Ende des Screens? 


* 
LDA 
CMP 
BNE 
RTS 

* 

WIDEIT JSR 
LDX 
JSR 
JSR 
LDX 
JSR 
RTS 

* 

WDITSUB1l LDY 

WDITLOl ASL 
EHP 
ROL 
FLP 
ROL 
DEY 
BNE 
RTS 

* 

WDITSUBZ ASL 
PHP 
ROL 
PLP 
ROL 
RTS 


22 
#192 
WIDEI 


WDITSUBZ 
+9 
WDITSUB1l 
WDITSUB2 
#1 
WDITSUBl 


BYT1,X 
BYT1,X 


WDITLOl 
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AGE 


(Objektcode) 
BSAVE ACE, A$910ß, 


$91ßP: 
$9198: 
$911ß: 
$911B: 
89129: 
$9128: 
$9138: 
$9138: 
$9148: 
59148: 
59158: 
$9158: 
59168: 
$9168: 
$9179: 
$9178: 
$9188: 
$9188: 
$9199: 
59198: 
HO1Aß: 
$Y1AB: 
$91Bß: 
$91B8: 
$91C9: 
$91C8: 
$91DB: 
$91D8: 
$91EB: 
SO1EB: 
$S91Fß: 
$91F8: 
$920B: 
59298: 
$9219: 
59218: 
89229: 
59228: 
$9239: 
99238: 
59249: 
59248: 
59258: 
$9258: 
59269: 
$9268: 
89278: 
59278: 
89288: 
59288: 
$9298: 
$9298: 
HO2RAB: 
$Y2A8: 
S9RBB: 
$92B8: 
$92C9: 
$92c8: 
$92DB: 
$92D8: 
S92EB: 
S92E8: 
$92Fß: 
SI92FB8: 
593ß0: 
59308: 
$9319: 
$9318: 
$9328: 
$9328: 
$9339: 
$9338: 


A9 
F6 
83 
94 
FF 
Fö 
FO 
Dp 
D9 
dE 
19 
06 
AB 
CF 
AE 
Sc 
45 
42 
52 
52 
2C 
53 
46 
8D 
55 
SE 
SC 
55 
20 
48 
55 
54 
3C 
al 
ac 
IF 
29 
94 
26 
öl 
c8 
BA 
28 
93 
1 
AE 
85 
83 
FA 


SD 
85 
74 
FF 
ca 
8) 
E8 
E6 


L$B4B9 


83 
Ag 
DA 
D9 
6D 
FB 
6D 
ac 
BF 
98 
8D 
c2 
CD 
8D 
55 
54 
43 
2Cc 
49 
42 
52 
2Ö 
42 
59 
3C 
52 
3E 
53 
46 
AB 
3C 
49 
SE 
8D 
1B 
TE 
3d 
2d 
a 
49 
Dö 
7) 
Fl 
AD 
FF 
85 
03 
91 
48 


Ag 
91 
63 
85 
91 
2] 
91 
IF 
92 
D9 
D6 
e1 
ei 
54 
46 
3E 
54 
3C 
4E 
55 
54 
3C 
55 
28 
42 
47 
26 
48 
3E 
29 
5ß 
44 
Sc 
FF 
93 
94 
94 
AE 
85 
TR 
FA 
28 
94 
83 
A6 
FA 
84 
AA 
A4 
d8 
ES 
D® 
B3 
3Ö 
85 
18 
8D 
AB 
A6 
FC 
84 





59378: 
99388: 
59388: 
$9398: 
59398: 
59340: 
GY3AB8: 
$95BB: 
$93B8: 
$93C#: 
$93C8: 
$93D9: 
$93D8: 
$93EB: 
$93E8: 
HI3FB: 
$93F8: 
$948B: 
894088: 
59419: 
59418: 
59428: 
$9428: 
99439: 
$9438: 
$9449: 
$9448: 
$9459: 
99458: 
$946%: 
59468: 
59479: 
$9478: 
$9488: 
59488: 
$9499: 
99498: 
$IAAG: 
BIYAAB: 
S9ABB: 
$94B8: 
$IAch: 
$9408: 
$94AD$: 
$94D8: 
$YAEB: 
$9AEBS: 
$IAFB: 
SYAFB8: 
$9599: 
$9588: 
59518: 
$9518: 
$9529: 
$9528: 
59538: 
$9538: 
$9549: 
$9548: 
$9558: 
$9558: 
$9568: 
$9568: 
59578: 
$9578: 
$9589: 
$9588: 
$959B: 
$9598: 
$95AB: 
$95A8: 
H9I3AB: 
$9348: 
99358: 
99358: 
59369: 
$9368: 
$937B: 


26 
BB 
ÖF 
BB 
91 
FE 
BA 
FA 
E6 


co 
A2 
B2 
sh 
AB 


A2 
E6 
54 
#0 
80 
A2 
P9 
1 
1 
EB 
DA 


8D 
1 
69 
8D 
6# 
98 
A5 
49 
93 
FB 
PF 
A5 
AC 
Bl 
2A 
9 
AB 
E6 
D® 
18 
B3 
BA 


93 
FE 
dA 
85 
49 
93 
FD 
B1 
A4 
81 
d3 
81 
94 
81 
co 
BB 
B1 
d8 
F6 
93 
ac 
Fo 
26 
81 
dB 
85 
A5 


3d 


1. Programmbeschreibung 


Das Assemblerprogramm PROTODOS, 
das unter DOS 3.3 gestartet wird, kopiert 
Dateien von einer ProDOS-Diskette auf 
eine DOS-3.3-Diskette. Es setzt 2 Lauf- 
werke voraus, die an demselben Slot an- 
geschlossen sein müssen, d.h. eine Kopie 
von z.B. S4, D2 nach S6, D1 ist nicht 
möglich. 

Die zu übertragenden Dateien müssen 
sich im Volume-Directory (= Hauptinhalts- 
verzeichnis) der ProDOS-Diskette befin- 
den. Diese Beschränkung erfolgt aus 
Platzgründen: Eine Version, die zusätzlich 
das Präfix setzt und auf Subdirectories 
zugreift, wäre zu umfangreich für eine Ver- 
öffentlichung im Peeker. 

Das Gegenstück zu PROTODOS, nämlich 
DOSTOPRO, steht in „Apple ProDOS für 
Aufsteiger“, Bd. 2, S. 183ff. (Hüthig- 
Verlag). 


Die folgenden Dateitypen werden von 
dem Programm unterstützt: 


-  Applesoft-Programme: ProDOS- 
Dateityp BAS wird zum DOS-Dateityp A; 
— Binärdateien: ProDOS-Dateityp BIN wird 
zum DOS-Dateityp B, die Startadresse 
bleibt unverändert; 

— öystemdateien: ProDOS-Dateityp SYS 
wird zum DOS-Dateityp B und erhält die 
Startadresse $2000; 

— Textdateien: ProDOS-Dateityp TXT wird 
zum DOS-Dateityp T. 


Sequentielle Textdateien werden (bis auf 
das DOS-gerechte Setzen des höchst- 
wertigen Bit 7) unverändert und in beliebi- 
ger Länge übertragen. 

Was Random-Textdateien betriff, hat 
PROTODOS eine Neuerung zu bieten: 
Dieser Dateityp kann ebenfalls übertragen 
werden, denn das Programm bricht nicht 
beim ersten leeren Record ab. Statt des- 
sen werden Random-Textdateien expan- 
diert, d.h. unbelegte ProDOS-Records er- 
scheinen auf der DOS-Diskette als leere 
Sektoren. 


2. Bedienungsanleitung 


Die „Benutzeroberfläche“ von PROTO- 
DOS orientiert sich sehr stark an dem 
bereits im Peeker, Heft 3/85, erschiene- 
nen Programm WS.TRANSFER von Dr. 
Jürgen Kehrel. Die notwendigen Schritte: 


— DOS 3.3 von Laufwerk 1 booten; 

— PROTODOS mit BRUN PROTODOS 
starten; 

— Die ProDOS-Diskeite in Laufwerk 2 ein- 
legen. 
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Konvertierung 


von ProDOS- in DOS-3.3-Dateien 


Zunächst erhalten Sie einen CATALOG 
des Volume-Directory der ProDOS-Dis- 
kette. Übertragbare Dateien sind dabei be- 
reits mit dem entsprechenden DOS- 
Dateityp gekennzeichnet. Als nächstes 
müssen Sie den Namen der zu übertra- 
genden ProDOS-Datei sowie den Namen, 
den diese Datei auf der DOS-Diskeitte ha- 
ben soll, eingeben. Wenn Sie anstelle ei- 
nes dieser beiden Namen nur ein <Re- 
tum> eingeben, beginnt das Programm 
von vorne. 

Nach einer Überprüfung, ob nicht bereits 
eine Datei mit dem angegebenen Namen 
auf der DOS-Diskette existiert (und ggf. 
entsprechender Rückfrage des Pro- 
gramms beim Benutzer), beginnt der 
Übertragungsvorgang. Wenn die Übertra- 
gung fehlerfrei abgeschlossen wurde, er- 
halten Sie danach einen CATALOG der 
DOS-Diskette. 


3. Grenzen des Programms 


PROTODOS benutzt diejenige Slotnum- 
mer, die beim Programmstart von DOS 3.3 
gesetzt wird. Damit wird eine zusätzliche 
Anfrage an den Benutzer umgangen. Der 
Transfer zwischen zwei verschiedenen 
Slots ist daduch allerdings nicht mehr 
möglich. 

Das Speichern eines Binärprogramms mit 
einer Länge von mehr als $7FFF Bytes ist 
unter DOS 3.3 ohne vorherigen DOS- 
Patch nicht möglich und ergibt einen 
RANGE ERROR. Erstaunlicherweise wer- 
den aber von PROTODOS geschriebene 
Binärdateien von DOS auch dann ohne 
Probleme geladen, wenn sie länger als 
$8000 Bytes sind. 

Die Expansion einer Random-Textdatei 
beansprucht u.U. viel Speicherplatz auf 
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der Diskette. Eine Datei mit einer Record- 
länge von 100 Bytes und einem einzigen 
tatsächlich belegten Record mit der Num- 
mer 1300 füllt eine normale DOS-Diskette 
(35 Spuren) vollständig. 


Hier wäre ein Ansatzpunkt für eine Erwei- 
terung des Programms: In dem sog. Auxi- 
liary-Information-Feld (AUX_INFO) des 
ProDOS-Dateieintrags findet sich bei einer 
Random-Textdatei die Recordlänge, mit 
der die entsprechende DOS-Datei über 
den File-Manager eröffnet werden könnte. 
Das Programm müßte beim Lesen der 
ProDOS-Datei danach jeden einzelnen 
Record prüfen und nicht-existente Re- 
cords auf der DOS-Diskette mit Hilfe des 
File-Manager-POSITION-Befehls über- 
springen. Allerdings ergibt sich dabei eine 
recht aufwendige Hin- und Herrechnerei 
im Programm. 


4. Programmtechnische Details 


Die meisten Teile des Programms sollten 
in ihrem Ablauf relativ einfach zu verfolgen 
sein. Einige Stellen bedürfen allerdings 
eingehenderer Erklärung bzw. sind „kri- 
tisch“: 


Direkt-Modus: DOS prüft bei Befehlen 
und Eingaben, ob ein Applesoft-Programm 
lauft, und testet dazu die Zero-Page- 
Adressen $0033 (Prompt) und $0076 
(CURLIN = momentane Applesoft-Pro- 
grammzeilennummer). Falls diese Spei- 
cherstellen dieselben Werte wie im Direkt- 
Modus enthalten (Prompt = „U“ und 
CURLIN = $FF), behandelt DOS jede Ein- 
gabe wie einen direkten Befehl und würde 
z.B. auf eine Dateinamen-Eingabe CATA- 
LOG mit einem CATALOG reagieren. Das 
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Setzen dieser beiden Speicherstellen ist 
ein eleganterer Weg als das „Abhängen“ 
von DOS. 


Volume-Directory: Nach der Meldung 
von RESTART wird das gesamte Volume- 
Directory (4 Blocks = $800 Bytes) von der 
ProDOS-Diskette eingelesen (Routine 
RDDIR) und danach über PRTDIR ausge- 
geben. Das Absuchen dieser vier Blocks 
nach (belegten) Einträgen (GETIST und 
GETNXT) ist aus dem ProDOS-Urlader 
übernommen und ziemlich fehleranfällig. 
Jeder Eintrag hat eine Länge von $27 
Bytes, wobei der erste Eintrag beim 4. 
Byte ($004) des jeweiligen Blocks beginnt. 
Daraus folgt: Der letzte Eintrag innerhalb 
eines Directory-Blocks beginnt mit dem 
Byte $1D8 und endet mit dem Byte $1FE - 
bei einer weiteren Erhöhung um $27 für 
den nächsten Eintrag verrechnet sich die 
Suchroutine, denn es kommt $1FF heraus. 
Hier steht in einem ProDOS-Directory- 
block immer der Wert $00, und die Such- 
routine „erkennt“ daraus „gelöschter Ein- 
trag“ und nimmt eine erneute Erhöhung 
des Pointers vor mit dem Ergebnis $026 
im nächsten Block, in dem die Einträge 
aber wieder mit dem 4. Byte beginnen. 


PROTODOS 


BSAVE PROTODOS, A$Bß8B3, L1584 


* PROTODOS + 


* 
* 
* 
* 


ProD0OS -> DOS 3.3 
* 
* Arne Schäpers 19/85 


oJ Auanr- 


* 
MSGPNT 
PIR 
IOBPNT 
TEMP 

* 
WNDLFT 


EQU 8 

EQU $895 
EQU $97 
EQU $99 


EQU 
EQU 
EQU 
EQU 


$20 
$24 
$25 
$48 
EQU 3299 
EQU 
EQU 
EQU 
EQU 


5308 
STYP+$15 
4338 
$36% 


EOF 
NAMBUF 
TWORK 
* 

#* PAGE-3-VEKTOREN: 
* 

DOSCOLD EQU 
FMAN EQU 
RWTS EQU 
FMANLOC EQU 
RWTSLOC EQU 
* 


$3D3 
$3D6 
$3D9 
$3DC 
$3E3 


* DATEN/FILE-MANAGER-PUFFER: 


* 

TTSLIST EQU $oFpp 
TDBEUF EQU $1099 
DIRBUF EQU $11ßB 
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rege 


* 
* 
* 
* 
* 
* 


RR 








Aus diesem Grund muß jeweils am Ende 
eines Blocks, also nach $200 Bytes ‚„von 
Hand” nachkorrigiert werden. Der Test auf 
„innerhalb Block“ oder „nächster Block 
und Korrektur” ist dabei von der Adresse 
abhängig, ab der das Directory geladen 
wurde. 


Index-Blocks: Über das Thema „Lesen 
einer ProDOS-Datei“ im Zusammenhang 
mit Master-, Index- und Datenblocks lie- 
Ben sich ganze Bücher schreiben. Hier sei 
nur angemerkt, daß ein Masterblock die 
Blocknummern von Indexblocks enthält, 
die ihrerseits wiederum die Blocknum- 
mern der einzelnen Datenblocks einer 
Datei enthalten. Je nach Dateigröße be- 
steht eine ProDOS-Datei nur aus einem 
einzigen Datenblock (max. 512 Bytes), ei- 
nem Indexblock mit max. 256 Datenblocks 
(max. 256 * 512 Byte) oder einem Ma- 
sterblock, der max. 128 Indexblocknum- 
mern enthält. Die Blocknummer im Datei- 
eintrag zeigt immer auf den „höchstwertii- 
gen” Block der Datei, d.h. bei kleinen 
Dateien direkt auf den einzigen 
Datenblock, ansonsten auf den Index- 
bzw. Masterblock. 


PTR für PRINT 
diverse Zwecke 
PTR auf IOB-Liste 
Scratch 


Textfenster links 
Curs, horizontal 
Curs, vertikal 
Bug-Fix (RWTS} 


Bingabe-Puffer 


ProDOS-Dateieintrag | 
(3 Byte) 
DOS-Filenanme 
FMan-Workspace 


cr 


Kaltstart DOS 
FMan-Aufruf 
RWTS-Aufruf 
Adresse bestimmen 
Adresse bestimmen 


65 D2 
zo 
EL. 72 


8D 73 


TS-Puffer (FMan) 
Sec-Puffer (FMan} 
ProDOS-Directory 


74 
{3 
76 


DZ AD AD 
AD CB CF 


C5 AB D3 
D2 D3 AB 











PRodos 4 


Skewing: In der Routine RDBLOCK wird 
zuerst aus der Blocknummer die Track- 
und Sektornummer ermittelt. Dabei kommt 
jedoch bereits die physikalische Sektor- 
nummer heraus. Da die RWTS von DOS 
intern eine Umsetzung von logischer nach 
physikalischer Sektornummer vornimmt 
(„Sektor Skewing“), muß diese Umset- 
zung vorher rückwärts vorgenommen wer- 
den, nämlich so, daß die RWTS nach der 
internen Umrechnung dann wieder den 
tatsächlich gewünschten Sektor liest. 


Kurzhinweise 


1. Zweck: 
Konvertierung von ProDOS- in DOS-3,3- 
Dateien 

2. Konfiguration: 

Apple II+/e/c; DOS 3.3 

3. Test: 

BRUN PROTODOS 

(von DOS-3.3-Diskette aus!) 

4. Sammeldisk: 

T.PROTODOS 

(Big-Mac-Quelltext) 

PROTODOS z 
(Maschinenprogramm) 


DTABUF 
= 

KBED 
KBSTRE 
* 

* MÖONITÖR-AUFRUFE: 


EQU 159% Datenpuffer-Start 


EQU $CBpp 
EQU $CB19 


Tastatur 
Taste löschen 


* 
TEXT 24 * 40 2 
HOME 
RDKEY 
GETLN 
CROUT 
PRBYTE 
COUT 

* 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$FB2F 
$FC58B 
SFDIC 
SFDEA 
$FDSE 
$FDDA 
$FDED 


1 Tast,-Zeichen 
l Tast.-Zeile 
<CR>-Ausgabe 
Byte ausgeben 
Zeichenausgabe 
ORG $9883 
* 
#+$Ap 
$33 
$76 
TEXT 
#595 
COUT 
HOME 
+19 
CV 
#506 
WNDLFT 
PRINT 
8D 
"PRODOS -> DOS-KONVERTER"" 


PROMPT und 
CURLIN => 
"AP Läuft" 
CHR$ (21) 
=> 89-Z aus 


VTAB 89 


"HTAB 5" 


BE AB CA 
CE D6& CS 


8D8D 

! ARNE SCHÄPERS 19/85" 
C3 C8 DB 
Bl B6 AF 

8D8D8D98 


WNDLFT zurück 


+$00 
WNDLFT 


3/ 


B856: 
0859: 
BB5B: 
BB5D: 
d86B: 
#861: 
863: 
B865: 
M866: 
BB6B: 
BBEA: 
B86C: 
BB6E: 


0879: 
#873: 


B876: 
0879: 
BBTB: 
BB7D: 
0888: 
B881: 
0884: 
B88C: 
BBED: 
ÖBSF: 


#892: 
NEST 
PBA2: 
BBAR: 
Ö8BB: 
B8B2: 


B8B5: 
Ö8BD: 
BBc5: 
BSCD: 
A8Dl: 
BBD3: 


BBD6: 
ÖBDE: 
BBEG: 
ÖSEE: 
B8F5: 
QBF7: 
ÖBFA: 
ASFC: 
BSFF: 
8981: 
3963: 
B9B5: 
B9B7: 


BIHA: 
BSD: 
B919: 
A912: 
B915: 
Bg1T: 


B91A: 
a91D: 
BSIE: 
89321: 
#929: 
BI2F: 
B939: 
9933: 
#934: 
8936: 
#938: 
BIZB: 
ÖIZE: 
B949: 
#943: 
0945: 
#948: 


BIAA: 


B94D: 
#955: 
B95D: 
A965: 
| B96B: 


38 


C5 
D3 
CE 
D2 
8D 
BC 


D3 
D4 
9 
D5 
8D 


2B BE 77 


BC 
87 
78 


F8 
98 


21 
np 
FE 
#2 
EB 


32 
AE 


98 
BA 
25 
24 


C5 
CE 


8D 
c9 


DB 
cg 
c9 
c5 
8D 
c9 


AB 
CB 
Ad 
CB 
8D 
D2 


D5 
5 


BD 
99 
50 
FB 
19 
8D 
B7 
9B 
Fö 
D3 


58 
EA 
85 


B5 
9D 


24 


D2 
CF 
CE 


5A 


79 
B9 
9F 
C6 


AT 
F6 
24 
87 
cl 


BD 


BA 
DA 


FC 


BB 
c7 
Ad 
c5 
D2 
D3 
CE 
D2 
CE 
ca 
C5 
cc 
AB 
C5 
D2 
c9 
AB 
AB 
c# 


6) 


83 


FC 
BC 


BC 
B9 
BB 
CF 
D3 
cl 


FD 


dc 
dc 


BC 
BB 
cc 
c8 
= 


C8 
4 


78 
79 
80 
Bl 
82 
83 
84 
85 
86 
87 


199 
161 
182 
183 
D3 c9 


184 
185 


CF c4 
CB C5 
AB cc 
CB AB 
196 
187 


CF DS 
D4 D4 
C1 D5 
Bl 
198 
189 


CE BE 
D4 65 
BC C5 
65 CE 
11P 
ı1l 
112 
113 
114 
115 
116 
17 
118 
118 
129 
121 
122 
123 
124 
125 
126 
Ier 
128 
1293 
AD C4 
CD C5 
139 
al 
132 
133 
134 
135 
136 
157 
138 
159 
149 
141 
142 


05 D2 
D4 D9 
DA AB 
05 CE 
143 


JSR 
LDY 
LDA 
STA 
DEY 
BNE 
LDA 
SEC 
SBC 
SBC 
AND 
BPL 
LDA 


SETIOB 


* 
SETFRE STA 
JSR 


# 


GETIOB 
#30C 


(IOBPNT),Y 


I0B,Y 


SETIOB 
IOBPNT+1 


#521 
+<DTABUF 
#+$FE 
SETFRE 
+$8B 


FRESPC 
CRCONT 


IOB-Adresse 
RHATS-Parms 
kopieren 

wg. Slotnummer 


Bestimmung des 
freien Platzes 

-> norm. = $96(ß9) 
Daten-Start 

-> Geradzahl 

wenn < $8ß09 Byte 


Datenpuffergröße 
"RETURN -> Weiter" 


Bee 
* RESTART NACH TRANSFER #* 


“.....„„en5eeeeeeeee 


* 
RESTART JSR 


LDA 
STA 
JSR 
HEX 
ASC 

C5 AE AE 
HEX 
ASC 

CF D3 AD 

DA DA C5 

C1 D5 C6 

B2 
HEX 
ASC 

AD CA C9 

c5 AB C9 

c6 D7 C5 
HEX 
ASC 

Ad BD Aß 

D2 Ad AB 

D3 C3 BE 

ca 05 
HEX 

GETCRl LDA 
BPL 
STA 
CMP 
BEQ 
CMP 
BNE 
JMP 

3 

NEWDSK JSR 
JSR 
BCS 
JSR 
BCC 

ERRVEC JMP 

* 

GETPN JSR 
HEX 
ASC 

c1 Da 65 

BA 
HEX 
JSR 
TXA 
BEQ 
STA 
JSR 

SCANDIR JSR 
BEQ 
JSR 
BNE 
JSR 
HEX 
ASC 

AB CA Cl 

Dß AF CE 

E7 65°C6 

Al 
HEX 


HOME 


VTAB 11 


"LEGEN SIE... 


SDSED 


"DIE PRODOS-DISKETTE 
IN LAUFWERK 2" 


8D8D 


"EINE DOS-DISKETTE 
IN LAUFWERK 1" 


8DED 


"<RETURN> 
= ENDE" 


8DdB 
KBD 
GETCRI1 
KBSTRB 
#$8D 
NEWDSK 
#$9B 
GETCRLl 
DOSCOLD 


HOME 
RDDIR 
ERRVEC 
PRTDIR 
GETPN 
ERROR 


PRINT 
8D 


= WEITER 


<ESCG> 


das hier ist 
der einzige 
reguläre Ausgang 


<ESC>? 


liest ProDÖS-DIR 
=> Lesefehler 
druckt CATALOG 
DIR nicht leer 


"PRODOS-DATEINAME: '' 


DB 
GETLN 


RSTVEC 
TEMP 
GET1IST 
CMPNAME 
GOTPN 
GETNXT 
SCANDIR 
PRINT 
8D87 


Bingabe Dateiname 
Eingabe-Länge 

=> nur <CR> 
Namenslänge 
Vergleich mit 
ProDOS-Einträgen 


nächster Eintrag 
Loop bis DIR-Ende 


BELL 


"FALSCHER DATEITYP/ 
NICHT GEFUNDEN!" 


SDPH 


A96D: 
Bg7B: 
#973: 
#975: 
#978: 
#979: 


BSTB: 
B9TE: 
BITF: 
#982: 
BYBA: 
BYBD: 
B98E: 
#991: 
#992: 
B994: 
9997: 
0999: 
BI9B: 


B99D: 
BYAB: 
BYAS: 
BAG: 


949: 
BIYAC: 
BYAF: 
BSBB: 
B9B3: 
B9BB: 
B9C1: 
B9C4: 
BSCC: 
B9DA: 
BSD6: 
B9D7: 
Ö9DA: 
ASIDC: 
ÖSDE: 
BIER: 
Ö9E3: 
BSES: 
BYE: 
ASEB: 
B9ED: 
B9FB: 
BYF3: 
AYF6: 


AYF8: 
BIFB: 
ÖSFE: 
BABL: 
AApe: 
BABT: 
BABS: 
BABC: 
BADE: 
BAILB: 
DAI2: 
BAIS: 
MA18: 
BAIB: 
BAID: 
MAILF: 
AA21: 
DARA: 
BA2T: 
DARA: 
BA2D: 


BA2F: 
BA39: 
BA32: 


BA33: 
MASE: 
BASS: 
BASB: 
BASD: 
BAAB: 
BAAZ: 
BAAS: 
BA49: 


B8 
09 


2d 
F® 
29 
BP 
EE 
BE 
EE 
EE 
20 


1A 
23 
85 
dB 


F8 
24 
CF 
C5 
GA 


12 
44 
19 
B6 
5B 


24 
8D 
AE 
76 


96 
24 


cl 
c9 
c5 
c2 
D3 
CE 
Ad 


BC 
DF 
CE 


ED 
8E 
7B 
CA 
BA 
ED 
8E 
9 
AS 


19 


1A 
43 
89 
94 
43 
25 
B2 
12 
IF 
2d 
18 
da 
80 
20 
c4 
15 
16 
CA 
B4 


Do 


DA 
54 
p4 
68 
2F 
eF 


3l 
1 


B9 
11 


83 


BB 


D3 
cl 
BA 


FD 


BB 


BB 
BB 
DA 
B8 


BB 
BB 


D4 
Ad 
D2 
c5 
c3 
Ad 


FD 


FD 
FD 
89 


FD 
FD 
DB 


3 
BB 
BB 
BB 
dB 


dB 


#3 
03 
#3 


BB 
#3 
03 
BB 


DA 
BD 


DA 
DA 
DA 
DA 
DA 


144 
145 
146 
147 
148 
149 
15® 
151 
152 
153 
D4 65 


154 
155 
156 
197 
158 
159 
169 
161 
162 
163 
164 
165 
166 
167 
168 
169 
17% 
171 
65 D8 
D4 AB 
172 
(8 D2 
AB CA 


173 
174 
175 
176 
177 
178 
179 
186 
181 
182 
183 
184 
185 
186 
187 
188 
189 
198 
191 
192 
193 
194 
195 
196 
197 
198 
199 
209 
281 
292 
283 
294 
285 
206 
267 
208 
209 
218 


211 
212 
213 
214 
215 
216 
27 
218 
219 
220 
221 
Dar 
223 
ard 
ARD 
226 
227 


JMP GETPN => neue Eingabe 
GOTPN LDY DIRBUF+$23 Eintragslänge 
GOTPL LDA (PTR},Y Kopie des 
STA, SlıE,r gefundenen Eintrags 
DEY aus dem ProDOS- 
BPL GOTP1 Directory 
* 
GETDN JSR PRINT 
HEX &8D 
ASC "DOS-DATEINAME: " 
C9 CE Cl 
HEX #8 
JSR GETLN 
TXA Eingabe-Länge 
BEQ RSTVEC nur <CR> 
JSR OPEN OPEN DOS-Datei 
BCC GETOYV => existiert bereits 
CMP_ #Sß6 FILE NOT FOUND? 
BEQ MAKEFL wenn ja! 0.K. 
* 
ERROR JSR PRINT 
HEX 8D8DPd 
JSR GCRCONT "RETURN = Weiter" 
RSTVEC JMP RESTART 
* 
GETOV JSR CLOSE kein Disk I/O 
JSR PRINT 
HEX 8D 
ASC "DATEI EXISTIERT. " 
c9 D3 D4 
Ad 
ASC "ÜBERSCHREIBEN (J/N): " 
65.697602 
AF CE A9 
HEX #9 
GTOl JSR RDKEY "71 oder "N" 
AND +#$DEF => Großbuchstabe 
CMP #"N" 
BNE GTO2 
JSR COUT "N" ausgeben 
JSR CROUT + <CR> 
JMP GETDN -> neuer DOS-Name 
GTO2 CMPO#"J" 
BNE GTOl 
JSR COUT "J" ausgeben 
JSR CROUT + <CR> 
JSR DELETE Datei löschen 
BCS ERROR 
& 
MAKEFL LDA STYP+$19 ProDOS-Filetyp 
JSR GETTP2 => DOS-Filetyp 
LDA DTYPES,Y 
STA DOSTYP 
JSR CREATE erzeugt Datei 
BCS ERROR 
LDA DOSTYP 
BEQ MOVE -> TEXT 
CMP_ #$#2 
BEQ WRLEN A: nur Länge 
LDX STYP+$IF BIN/SYS: Start- 
LDY STYP+$29 adresse 
LDA STYP+$19 ProD0S-Filetyp 
BPL WRSTART -> ist BIN-Datei 
LDX +99 SYS-Datei: Start 
LDY #928 auf $20088 
WRSTART JSR WR16 schreibt Startad 
WRLEN LD’X EOF 
LDY EOF+l Dateilänge 
JSR WRI6 schreibt Länge 
BCC MOVE "always!" 
* 
KEERERTERE 
* MOVER LOOP x 
eek 
* 
DADDR DFB #<DTABUF Datenstart 
RDCOUNT DA HBdB gelesene Bytes 
FRESPC DFB ® Datenpuffergröße 
% 
= 
MOVE JSR SETRD setzt DSTART+TSTEOF 
BEQ RDDONE -> EOF PB 98 89 
JSR RDI1ST liest 1.Block 
BCS RDDONZ Disk-Fehler 
RWLOOP INC DADDR Zieladresse + $299 
INC DADDR 
INC RDCOUNT+l Anzahl gelesene 
INC RDCOUNT+l Bytes +$29% 
JSR TSTEOF EOF überschritten? 
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4 Jetzt purzeln die Preise! 
ZUSATZ-KARTEN: 












V-24-Schnittstelle -..-.--.. -- - Z-80-Kürte . ei 
80-Zeichen-Karte m,Softswitch a 16 K-Language-Karte . A 9B,- 
JoyStickDeLluxe „.urrerrnuu. 59 DaB HEISE ee ae 950,- 
BAAC: 98 OF 228 BCC LIMIT ja 68000 Intemex .. ..--HHu... 1600,- PALKarte „, IEEITRISERSIRERIE | + 1” 
BAAE: AD 31 BA 229 LDA RDCOUNT+1 max $8P99 B; ı RGB Karte ...........,..,r- 239,- IEEEMBB..... ... nun 4nee0.- 912,- 
BASI: CD a2 DA 230 GMP FRESPC Puffergröße Kop dataphon m.FT? uam 325,- zZ80 B Karte mit Software aan 719,- 
BA54: BO 13 23] BCS REWRITE an Cantranics-Karte von Epson für Graphik ... . . 210,- für Text... . 145,- 
ee Centronics-Schnittstelle für 2 Drucker gleichzeitig sie 129,- 
BASS: 20 26 ÜD 233 NXTRD JSR RDNEXT nächster Block Su er-E rommer 239 
$459: 99 E2 234 BCC RWLOOP belegt keinen Siöt, incl. Software für 2716-27128 „.oeueeueen. Age 
BASB: BB 48 235 BCS RDDONZ . 
= Floppy-Controll 
BA5SD: AD 15 3 237 LIMIT LDA EOF EOF überschritten z OPP on Der er 
BA6D: SD 30 dA 238 STA  RDCOUNT ee ner FDC 4 für alle WR *s ee 169,- Bausatz wielinks ern n . 159,- 
BAGS: AD 16 03 239 LDA EOR+L den EOF für WRITE Leerplatine wie oben incl, Promu.Eprom „nennen Mr 
BAGS: SD 31 BA 240 STA RDCOUNT+l = 
2. Erphi-Controller..................... 298,- 
BA69: 20 Fl dA 242 REWRITE JSR TSTEOF EOF — RDCOUNT PEREBET) . EBENE RER SE FE ER IE BE EBEIERSDEE RNRNEESEPRREE FEESEBERNSER SPEER FRE SR FREE BEER ER RR ee ERBE 
BASC: 8E 15 B3 243 STX EOF = verbleibende 
rn ee Drucker-Spooler 6A. kB, | 
ßA72: 8D 17 03 245 STAA EOF+2 lesenden Bytes fertig aufgebaut inel. Netzfellu. Gehäuse 0002 cceaeeaunaen 340,- 
BAT5: AD 38 BA 246 LDA RDCOUNT ee — 
BATB: 38 247 SEC FMan-Angabe ist P h C d K b d 
BA79: E9 Öl 248 SBC #$01 l weniger als re omman er 2" oar S 
ÖATB: AA 249 TAX ae at zenlehs Wir bieten Ihnen die Preh-Qualität auch für Apple. Ak 88 Spez. mit Gehäuse, An- 
BATC: AD 31 BA 256 LDA RDCOUNT+1 Anzahl der zu schlußkabel, Zehner-Tastenfeld, dt. Zeichensatz, Böndertasten für 339, 
DATF: E9 (6 251 SBC +$00 schreibenden Bytes! Ctrl-Codes und Rechenfunktionen „eueessennenesennnennnennen vr 
BABL: A8 252 TAY Preh Commander Keyboard, frei programmierbar 599, 
BAB2: 29 DD dB 253 JSR WRITE schreibt X—Y Byte b3s zu 10 Ebenen, Pro Taste bis zu 250 Zeichen a ci niLır Fe 
BABS: BO 1E 254 BCS RDEDONZ -> FMan-Fehler 
BABT: 20 DA BA 255 JSR SETRD RDCOUNT auf 
BABA: DO CA 256 BNE NXTRD falls EOF noch > ® 
257 %* 
BABC: 28 96 GB 258 RDDONE JSR CLOSE vor{!) CATALOG 
BASF: BÖ 17 259 BCS RDQUIT bei Fehler 
BASL: 29 2a dB 260 JSR PRINT 
MA94A: 8D 84 261 HEX 8D84 <CR>, Gontrol-D 
BA96: C3 C1 DA 262 ASC "CATALOG,DI" 
8A99: CL CCCF CT AC CA Bl 
BAAB: BD 9 263 HEX 8DP% [[ —,m m ee —— 
DAA2: AC AB BA 264 JMP RDQUIT kein 2. CLOSE TEAC 3 1 L in “ ED 35 EB 
BAAS: 20 96 VB 265 RDDONZ JSR CLOSE a e 498,- 
BAAB: 20 AE BA 266 RDQUIT JSR CRCONT "RETURN = Weiter" Speicherkapazität 1 MB, {formatiert 640 KB) jetzt für nur .....-- - 
hAAB: AC 76 BB 267 JMP RESTART das war's x 
268 # 
259 
270 x Unterprogramme a 
DL KERFERFKRFFE EEE EEE 
AT2  # 
DAAE: 2B 24 GB 273 CRCONT JSR PRINT 
BABl: 8D 8D dd 274 HEX 8D8D$P 
BABA: A9 89 275 LDA +89 HTAB #8 
ABS: 85 24 276 STA CH 
AABB: 20 2A BB 277 JSR PRINT 
ABB: BC D2 C5 278 ASC "<RETURN> = WEITER" 


fABE: D4 D5 D2 CE BE Aß BD Aß 
BAcs: D7 C5 C9 DA C5 D2 BEN " 
BAacc: BB 279 HEX #8 TEACFDS5 AV 1 x40 Track .... 395,- TEACFD5S5BV2x40 Track .... 460,- 


BACD: AD dB Ch 286 CGETCR2 LDA KBD wartet auf TEACFDS5SEV 1x 80 Track .... 445,- TEACFD5S5SFV?xB0 Track .... 449,- 
BADB: 19 FB 281 BPL GETCR2 ein RETURN ET ag 


Apple"-kompatibles Laufwerk incl, Gehäuse + Kabel ......nrrHr ++ - . 599,- 


TE 320 KB Laufwerk für IIc................. 948,- 
BAD9: 69 285 RrTS 640 KB Laufwerk für Ic nn m 1088, - | 


286 %* 
BADA: AS 99 287 SETRD LDA #88 setzt RDCOUNT EPSON DRUCKER 





ÖADC: 8D 30 BA 288 STA RDCOUNT zurück, Adresse EPSON FXBO ......2.2220200=: 1670,- EPSON FX100 ....-.Hrz20... 2159,- 
BADF: 8D 31 PA 289 STA RDCOUNT+Hl für den nächsten EPSONRXBO .....ruuun00.. 079- EPSONRKBOFT ......4ur0.. 1295,- 
BAE2: A9 15 299 LDA #>DTABUF 
DAEA: 8D 2F BA 291 STA DADDR Datenblock Die Microfloppy mit Zukunft: 
er DE = n Er Er ne en a En a Speicherkapazität: 2x 1 MByte formätiert: 2x 
d De 30 ı7 03 294 En EoRI3 640 kByte, Anschlußfertig mit PROM-residenter 
Patchsoftware für GP/M 2.2, Apple DOS 3.3, Di- 
ENDE > Ks versiDOS 2-C, 4-C (DD MOVER), Apple Pascal | 
a: 1.1, Pascal 1.2, Pro-DOS 1.0.1, | 
BAFl: AD 15 #5 297 TSTEOF LDA EOF Test, ob RD- 1.1.1.1.1 zum Preisvon - 1598, - 
Para: 38 298 SEC COUNT > restliche Low Power Versian 222224200220. 1698,- ee 
BAFS: ED 30 BA 299 SBC RDCOUNT Bytes im File 10 MBWinchester 
FE, = MB Wincheste 
BAFY: AD 16 93 3Pl LDA EOF+L c er 
BAFC: ED 31 BA 392 SBC RDCOUNT+1l High-Byte mit Software für DOS 3.3, CP/M 2.20, Pascal, Pro-DOS, SII0O,- 
BAFF: AB 303 TAY incl. Gontroler und Gehäuse a a a a ee a a 
DBAB: AD 17 83 394 LDA EOF+2 
OB83: EI H0 305 SEC #90 5 de bi r 
BBB5: 69 306 RTS hi on an e Ö 
Se: | Chinon L Laufwe für li+ Ile, 339, en 
ven 291 Sa en N inel. Kabel u. Gehäuse „u... ee, Jetzenur 
| BBÖ8: Bl #5 39 LDA (PTR),Y DIR-Eintrag. 
|  BBBA: AB BA 31 GETTP2 LDY +$94 Heraussuchen Gesamt-Preisliste anfordern! Preise inclusive gesetzlicher Mehrwertsteuer. 
BEBC: DS 15105 311 GTEl CMP PTYPES,Y der unterstützten Händlerpreisliste bitte schriftlich anfordern! 
ÖBAF: FO 83 312 BEQ GOTTYP ProDOS-Filetypen. r 
ÖBll: 88 31 DEY DOS-Filetyp VEDING ! ei 
ÖBl2: DB F8 314 BNE GTTI zuordnen n = rOonıcs 
nr ee Holtewiese 2 SACLYAYATZ TI: Yg, 
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BB15: 
ÖB18: 
ABLA: 
ÖB1D: 
ÖBLF: 
ÖB22: 


BB2A: 
BB25: 
BB27: 
ÖB28: 
BBAA: 
ÖBAC: 
ÜBRE: 
ÖB39: 
BB33: 
ÖB34: 
BB36: 
| 8837: 
AB38: 
ÖBSA: 
ÖB3B: 
PB3D: 
AB3F: 
BBAP: 
BB4]l: 
BB4A2: 


BB43: 


BBAA: 
ÖB46: 
BB49: 
BBAC: 
ÖBAD: 
BB5B: 
0B53: 
AB56: 
ÖB57T: 
BB58: 
$B59: 
BBSA: 
ÖBSD: 
BBSF: 
ÖB6El: 
BBS4: 


BBST: 
BB69: 
ABER: 
AB6E: 
ÜBEF: 
BBTl: 
aB72: 
BB75: 
ÖB78: 
#B79: 


ÖBTB: 
ÜBTD: 
ABTE: 
ÖB81: 
BB83 : 
MBES: 
DB87: 
ÖBSB: 


dB89: 
BBEC: 
ÄBBE: 
ÖBSB: 


MB93: 
AB95: 


BBSS: 
BB98: 
BBSB: 
ABSD: 
ÖBIE: 
dBAp: 
ÖBAZ: 
BBAS: 


40 


9 
B6 
FF 
Da 
AB 
c2 


68 
85 
68 
85 
AB 
Bl 
F® 
20 
c8 
Dp 
18 
98 
65 
A8 
AS 
69 
48 
98 
48 
60 


BB 


Ad 
sc 
sc 
c8 
sc 
8C 
AD 
aa 
aa 
AA 


8D 
a9 
Ad 
8D 
8C 


A9 
AA 
28 
99 
c9 
D® 
38 
69 


8D 


A2 
2d 
BB 
6d 


A9 
20 
BP 
SQ 
A3 
2d 
BP 
69 


B4 FC 
FF 
PD 92 
B4 
DA Cl 
c2 


9 


B1 
Bl 
BB 
B6 
ED FD 


F6 


DB 


B1 
8 


8 
23 SC 
22 Sc 


21 86 
24 BC 
79 ®D 


25 BC 


3% 
28 GC 
27 dc 


1E 
AG 
30 93 


FA 


DD B2 
36 95 


F7 
81 


FA BB 
85 
d6 
IF 


26 SC 
B1 
BB 
FA BB 
ın 


ö2 
FA @B 
B9 


85 
FA BB 
81 


316 
317 


318 
319 


320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
338 
331 
332 
333 
334 
335 
336 
337 
338 
339 
ZA 
341 
342 
343 
344 
345 
346 
347 
348 
349 
35% 
351 
352 
353 
354 
355 
356 
357 
358 
359 
36 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
388 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
395 
397 
398 
399 
AaB0 
481 
482 
483 
Aaß4A 


* 
PTYPES 


DTYPES 


DCHARS 


* 


DFB #8,4,$FC,6,$FF TXT/BAS/BIN/SYS 


DFB $FF,®,2,.4,4 X/T/A/B/B 


ASC 


1 TABB" 


* PRINT ROUTINE nach Andy Hertzfeld.., 


* 
PRINT 


ERTL 


PRTZ 


* 


eeerrr 
* FILE MANAGER-AUFRUFE «+ 
ee 


* 
DOSTYP 
* 

OPEN 


CLRNAME 


MVNAME 


FOPEN 
* 

* 
CREATE 


CLOSE 


DELETE 


PLA 
STA 
PLA 
STA 
LDY 
LDA 
BEQ 
JSR 
INY 
BNE 
CLC 
TYA 
ADC 
TAY 
LDA 
ADC 
PHA 
TYA 
PHA 
RTS 


DFB 


LDY 
STY 
STY 
INY 
STY 
STY 
LDA 
LSR 
LSR 
LSR 
LSR 
STA 
LDA 
LDY 
STA 
STY 


LDY 
LDA 
STA 
DEY 
BPL 
DEX 
LDA 
STA 
DEX 
BPL 


LDA 
TAX 
JSR 
BCC 
CMP 
BNE 
SEC 
RTS 


STA 
LDA 
LDX 
JSR 
BCS 
RTS 


LDA 
JSR 
BCS 
RTS 
LDA 
JSR 
BCS 
RTS 


MSGPNT 


MSGPNT+L1 
+01 


(MSGPNT),Y 


PRTZ 
COUT 


PRT1 


MSGPNT 


MSGPNT+1 
#509 


9 


#309 
TVOLNO 
TRECLEN+1 


TRECLEN 
TDRIVE 
IoB+l 

A 

Ä 

A 

A 

TSLOT 
#>NAMBUF 
#NAMBUF 
TNAME+1 
TNAME 


+30 
+$Ad 
NAMBUF , Y 


CLRNAME 


IN,X 
NAMBUF,X 


MVNAME 
#01 


CALLFMAN 
FOPEN 
+$06 
FMERR 


TIYER 
#$01 
#599 
CALLFMAN 
FMERR 


#92 
CALLFMAN 
FMERR 


+85 
CALLFMAN 
FMERR 


Returnadresse 
zeigt auf den 
auszugebenden 
Text selber 


<ßß> = Textende 


der ausgegebene 

Text wird über- 

sprungen (Erhö- 

hung der Return- 
adresse) 


DOS-Dateityp 


Volume-Nummer 
Recordlänge High 


=> $oBp1 
Drive 1 
RWTS-Slotnummer 


IS 


Adresse des 
Dateinamens 


Der Dateinamen- 
bereich wird 
auf " " gelöscht 


und der einge- 


gebene Name wird 
hineingeschrieben 


Kommando: OPEN 
=> kein CREATE 
=> Datei existiert 


-> nicht NOT FOUND 


DOS-Filetyp 
Kommando: OPEN 
CREATE erlaubt 


Kommando: CLOSE 


Kommando: DELETE 


ÖBAG: 
BBAT: 
BAAR: 
BBAC: 
ABAF: 
@BBT: 
BBBA: 
ÖBBB: 
ABBC: 
BBF: 
BBC2: 
BBC3: 


BBCA: 
BCE: 
BBC9: 
ÖBCB: 
BCE: 
ÖBD%: 
ABD3: 
ABDS: 
ABDB: 
BBDA: 


ÖBDD: 
ÖBEB: 
ABE3: 
BES: 
ÖBET: 
ÖBEA: 
BED: 
ÖBEF: 
ÖBF2: 
ÖBF4: 
BET: 
ÖBF9: 


ÖBFA: 
ABFD: 
BchB: 
öch2: 
BcHA: 
Bcpe: 
c99: 
ACAB: 
ACHO: 
ÖCHE: 
dC11: 
BC13: 
Bc15: 
Bc18: 
Bc19: 
BCIB: 
CIE: 


dc21: 
B023: 
BC24: 
AC25: 


BOaT: 


ÖC2B: 
BC2D: 
CAP: 


ÖC32: 
B034: 
ÖC37: 
ÖC3A: 
ÄCSC: 
CF: 
BCAl: 
BC4A: 
Bcac: 
BC5B: 


84 
8E 
A9 
8D 
Ag 


A5 
8D 
A9 
AG 


Bl 
BB 
Bl 
d6 


38 


6 
BB 
Do 


A9 
SD 
29 
D® 
28 
8D 
ca 
c5 
c5 
8D 


24 
87 
CD 
AD 
AB 


DA 
8E 


ıF 
DC 
B6 
95 
11 
IF 
#5 


F8 
D6 
11 
85 
IF 


F8ö 
29 


BB 


83 


83 
OF 
19 


8D 
31 
9F 
18 
24 
87 
c9 
CE 
c5 
20 


dB 
cl 


06 
AA 


FD 
FD 


dc 
BC 
BB 
BC 
BB 


BC 
dc 


dc 
BC 
dc 
ÖB 


dc 
93 


dc 


B3 


BC 


BC 


Bc 
dc 


BB 


D2 


D4 CF D2 D9 AB CC 


D2 


495 
486 
467 
4B8 
499 


* 
FMERR 


65 68 CC C5 D2 


Aald 
all 
412 
413 
414 
415 
416 
417 
418 
419 
426 
a2l 
daR 
423 
424 
425 
426 
427 
428 
429 
439 
431 
452 
A433 
454 
A435 
436 
437 
438 
439 
449 
441 
442 
443 
dad 
445 
A446 
447 
448 
449 
450 
451 
452 
455 
454 
455 
456 
457 
458 
459 
469 
a61 
A462 
463 
464 
465 
466 
467 
468 
469 
478 
a7 
472 
473 
474 
475 
476 
477 
4'778 
479 
489 
481 
482 
483 
484 
485 
A486 
487 
AB8 
489 
499 


Al 
491 


* 
* 
WR1S 


WRITE 


* 
* 
CALLFMAN 


SETFMAN 


GETFMAN 


* 
DPCODE 
SUBCODE 
TRECLEN 
TVOLNO 
TDRIVE 
TSLOT 
TTYPE 
TNAME 
RTNCODE 


& 
T#RNUM 
T#RADDR 
* 


PHA 
JSR 
HEX 
ASC 


HEX 
PLA 
JSR 
JSR 
SEC 
RTS 


STY 
STX 
LDA 
STA 
LDA 
JSR 
LDA 
STA 
LDA 
JMP 


STX 
STY 
LDA 
LDY 
STA 
STY 
LDA 
STA 
LDA 
JSR 
BCS 
RTS 


STA 
JSR 
STA 
STY 
LDY 
LDA 
STA 
DEY 
BPL 
JSR 
LDY 
LDA 
STA 
DEY 
BPL 
LDA 
RTS 


DS 
DS 
DA 
DFB 
DFB 
DFB 
DS 
DA 
DS 
DA 
DA 
DA 


EQU 
EQU 


PRINT 
8D87 


Fehlernumner 


"EMAN-FEHLER: $" 


011) 


PRBYTE 
CROUT 


TEMP 
TNAME 
#01 
SUBCODE 
#594 
CALLFMAN 
TEMP 
TNAME 
+504 
CALLFMAN 


TWRNUM 
TWRNUM+L 
#>DTABUF 
#D 
TWRADDR+1 
TWRADDR 
+52 
SUBCODE 
#504 
CALLFMAN 
FMERR 


OPCODE 
FMANLOC 
PTR+1 
PTR 
+$11 
OPCODE, Y 
(PTR},Y 


SETFMAN 
FMAN 
#$11 
(PTR) ,Y 
OPCODE,Y 


GETFMAN 
RTNCODE 


1 


1 
soaBLl 

ö 

1 

d6 

1 
NAMBUF 
2 

TWORK 
TTSLIST 
TDBUF 


TSLOT 
TNAME 


druckt Hexzahl 
<CR> danach 


FR1l6 schreibt 


zwei Byte, 


dabei 


findet kein 
Disk-I/0 statt 


-> 1, Byte 


2. Byte 


schreibt X-Y Byte 
in die DOS-Datei 


Daten werden ab 
DTABUF geschrieben 


=> WRITE RANGE 


schreibt RANGE 


Aufruf mit OPC 


-> zur Parnmliste 


Parmliste wird 
in FMan kopiert 


FMan-Aufruf 


Rückkopie der 
FMan-Parmliste 


Carry unverändert! 


Recordlänge 
Volume-Nunmner 


Drive 1 


aus RWTS gesetzt! 
DOS-Filetyp 
Startadresse Name 


Workspace 
$199 Bytes 
$18ß Bytes 


für WRITE RANGE 


für WRITE 


RANGE 


Rear 
* ProBOS-Directory lesen & absuchen * 
een 


* 
CRFLAG 
* 
PRTDIR 


DS 


LDA 
STA 
JSR 
BNE 
JSR 
HEX 
ASt 


HEX 


1 


+$68D 
CRFLAG 
GETIST 
PRTENT 
PRINT 
8D87 


<CR> oder 


Ge 


"DIRECTORY LEER!" 


SDR 


CHR$ (128) 


Bintrag 
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acs2: 38 
Ac53: 68 


BC54: 29 
BC56: AA 
BAC5E7: 28 
ACSA: B9 
AC5ED: 208 
Ac6ß: A9Y 
Ac62: 29 
Acs5: AB 
BC67: Bl 
BC69: #99 
ÖCEB: 20 
ÖCEE: CB 
ÖCEF: CA 
078: DB 
ÄcT2: A9 
AC74A: 85 
ÄCTSE: 29 
Bc73: 2 
ACTC: DB 
ÖCTE: 28 
Ac8l: 18 
BCB2: 69 


BC83: AD 
BC86: 49 
BCEB: &D 
ÖCBB: 28 
ÖCBE: C9 
Öc9d: DO 
dc92: A5 
BC94: 09 
Bcss: 98 
Ac98: 29 
BCSB: 28 
BCIE: 68 


CHF: A9 
ÖCAl: 85 
ACA3: A9 
cas: DO 


CAT: A5 
ÄCA9: 18 
ÖCAA: 6D 
CAD: AB 
BCAE: 9% 
ACBd: E6 
ÖCBR: A5 
ÖCBA: AA 
ÖCB5: 98 
ACBT: C9 
BCB9: FR 
ACBB: AB 
ÖCBD: 84 
ÖCBF: AB 
Öccl: Bl 
BCCs: FB 
Öccs: 69 


Acc6: 29 
Bcc8: C5 
ÖCCA: DB 
dcct: AB 
ÖCCD: AA 
ÖCCE: CA 
ÖCcF: Bl 
AcDl: 89 
ÖCD3: DD 
CDS: DE 
ÖCD8: 88 
ACDY9: DB 
ACDB: 28 
ÖCDE: BY 
ÖCEL: 29 
ÖCES: 69 


BCEA: A9 
ÖCES: 85 
ÖCES: A9 
ÖCEA: A2 
ÖCEC: AB 
ÖCEE: 29 
ÖCFLl: BO 
ÖCF3: AD 
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sl 
BD 
31 
ED 
8D 
Sc 
25 
13 
B6 
AB 
58 


85 
8 
1" 
dB 


F3 
B6 
1A 
Fo 


B4 


ihn 
02 


85 
BE 
8l 


DB 
BB 
FD 


FD 


FD 


BC 
dc 


BC 


Bc 
FD 


BA 
FC 


92 


öB 
ÖB 


BD 
ÖD 





492 
493 
494 
Aa95 


497 
498 
499 
5B0 
591 
5B2 
585 
594 
585 
596 
587 
598 
589 
519 
soll 
512 
513 
514 
515 
o16 
517 
518 
19 
Srd 
521 
522 
523 
524 
525 
526 
927 
528 
529 
559 
53l 
D32 
535 
554 
930 
936 
537 
5358 
939 
540 
S54l 
542 
543 
544 
945 
546 


548 
949 
559 
551 
DIR 
893 
554 
555 
556 
997 


559 
56B 
56l 
962 
563 
564 
565 
566 
567 
368 
569 
578 
571 
TR 
573 
574 
579 
576 
577 
578 
579 
580 
581 
982 


* 
PRTENT 


PRTNAM 


DOCR 


CRDÖNE 
* 


* 
GETLST 


* 
GETNXT 
GTN1 


SETPTR 


GOTENT 
* 


* 
CMPNAME 


CMPLOOP 


NOTSAME 
* 
* 


* 
RDDIR 


RDD1 


SEC 
RTS 


AND 


JSR 
LDA 
JSR 
LDA 
JSR 
LDY 
LDA 
ORA 
JSR 
INY 
DEX 
BNE 
LDA 
STA 
JSR 
JSR 
BNE 
JSR 
CLC 
RTS 


LDA 
EOR 
STA 
JSR 
CMP 
BNE 
LDA 
CMP 
BCC 
JSR 
JSR 
RTS 


LDA 
STA 
LDA 
BNE 


LDA 
CLC 
ADC 
TAY 
BC 
INC 
LDA 
LSR 
BCC 
CMP 
BEQ 
LD® 
sTr 
LDY 
LDA 
BEQ 
RTS 


AND 
CMP 
BNE 
TAY 
TAX 
DEX 
LDA 
ORA 
CMP 
BNE 
DEY 
BNE 
JSR 
LDA 
AND 
RTS 


LDA 
STA 
LDA 
LDX 
LDY 
JSR 
BCS 
LDA 


prodos 44 MERLIN 


=> kein einziger 
Eintrag vorhanden 


#+$QdF => Namenslänge 
GETTYP ProDOS-> DOS-Filetyp 
DCHARS,Y NS ER As 

GOUT 

+$Ad Space danach 

COUT 

#501 

BEIRI ET Ausgabe des 

+$89 Dateinamens 

COUT 


Zähler für Länge 


PRTNAM 

+20 zwei Einträge 

CH pro Zeile, CR 

DOCR nach jedem 2.Eintrag 
GETNXT nächster Eintrag 
PRTENT bis DIR-Ende 

DOCR 

CRFLAG "Toggle': einmal 
#$BdD wird CHR$(128), 
CRFLAG danach wieder <CR> 
COUT ausgegeben 

+#$8D war <CR>? 

CRDONE 

GV über Zeile 

#19 28 hinaus? 

CRDONE 

CRCONT "RETURN = Weiter" 
HOME 


#+>DIRBUF holt den 1, 


PTR+I besetzten Eintrag 
#504 nach Vol-Name 
GTN1 "always! 

PTR heilt frolgende 


Binträge aus DIR 
DIRBUF+$23 Eintragslänge 


SETPTR 

PTR+1 

PTR+1 neuer Block? 

A 

SETPTR -> innerhalb Block 

#$AC DIR-Ende/2 

GOTENT -> DIR-Ende 

#504 nächster DIR-Block 

PTR 

#520 Test 1.Byte 

(PER .Y des Eintrags: 

GETNXT -> ÖB: gelöscht 
"NE": Eintrag 

#$ÖF Aufruf mit 1l,Byte 

TEMP des Eintrags 


NOTSAME Längen ungleich 


Vergleich DIR- 
(ELR),E Eintrag mit 


+$589 eingegebenem 
IN,X Dateinamen und 
NOTSAME 


Test auf gültigen 
CMPLOOP Dateityp für 


GETTYP Konversion 
DTYPES,Y < $ÖF, wenn 0.k. 
+hrB -> EQ, wenn o0.k 


"BON: gefunden 


+04 4 Blocks 

TEMP Herunterzähler 
#>DIRBUF Zieladresse High 
+$02 


+00 Block $00d2 
RDBLOCK 
DIREND -> RWTS-Fehler 


RDADDR+1 wurde erhöht 








von Glen Bredon 


Der professionelle Macro-Assembler für 
die Apple Il-Familie! 
Neben allen Standard-Features bietet 


MERLIN u.a.: 


komfortabler Editor mit globalen 
Such- und Ersetzfunktionen 


liest und schreibt DOS 3.3 Text- und 
Binärtiles 

unterstützt 6502- und 65C02- 
Opcodes 

beinhaltet eine Bibliothek mit fertigen 
Unterprogrammen 

enthält einen Disassembler mit eige- 
ner Label-Bibliothek 

kompatibel mit vielen 80-Zeichen- 


karten und natürlich mit Apple //e 
und Apple //c 


Jetzt mit deutschem Handbuch! 


ISBN 3-89058-024-6 DM 198, 


Bei Ihrem Apple-Händler, in guten Buch- 
handlungen, oder direkt vom Verlag: 


Ampersand*, Teltower Damm 168, 
D-1000 Berlin 37, (030) 815 80 69 


*vormals Pandabooks 
EEE EEE EM Beselccuyor HH BB HE 


Name „ua ee 
BTISCHI iE ee er 


=saaaerenreanrenrzndlndndnrdarryirzrirdn rien 


O YV-Scheck liegt bei (spesenfreie Lieferung) 
OÖ per Nachnahme (zzel. DM 3,— Versandspesen) 
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ÖCF6: 
ÖCFS: 
ÖCFC: 
ÖCFD: 
ÖCFF: 
ADBL: 


ÖDBR: 
ÖD93: 


PDpAa: 
BDBG: 
dDas: 
BDgC: 
BDGF: 
#D12: 
#D15: 
AD17: 
AD19: 
ÖD1B: 
BD1D: 
BDIF: 
#D21: 
BDRA: 


BD26: 
6D29: 
ÖD2B: 
ÖD2E: 
AD31: 
#D34: 
8D35: 
BD3T: 
BD3A: 
ÖDSC: 
ÖDZF:; 
BD4A1l: 
ÖDAA: 
ADAT: 
BDAA: 
ÖDAB: 
ÖDAE: 
6D51: 
ÖD53: 
BD56: 
BD59: 
BDSC: 
PDSE: 
#D61: 
®D63: 
DES: 
BD67: 
ÖD69: 
ÖDEB: 
ADED: 
ADSE: 
8078: 
BD72: 
dD73: 
BD75: 


BDT6: 


8D78: 
ÖDTA: 
BDTB: 
ÖDT7C: 
ÖDTD: 


AD8B: 


ÜD84: 


ÖD85: 
PD88: 
ÖDEB: 
ÖDEE: 
ÖDSB: 
ÖD91: 


AE 
AC 
E8 
06 
D® 
6 


BB 


öl 
81 
BB 
DB 
B9 


d0 
81 


8E 
8C 
8D 
85 


ÖD 


T6 dD 583 
77 0D 584 
585 
89 586 
ED 587 
588 
589 
599 
591 
592 
593 
594 
595 
596 
597 
20 598 
#2 9D 599 
85 PD 6PH 
11 83 661 
12 853 682 
dB 03 685 
Fo 654 
19 685 
35 6h6 
26 667 
16 608 
11 689 
85 BD 61 
AP 811 
812 
93 dD 613 
19 614 
#2 6D 615 
dd 12 616 
8 11 617 
618 
13 619 
85 dD 62 
39 621 
d2 6b 622 
88 623 
93 BD 624 
dB 14 625 
dB 13 626 
627 
2F BA 628 
85 dD 629 
22 639 
83 6D 631 
76 6D 632 
77 0D 633 
17 634 
43 0B 635 
12 636 
95 637 
A2 638 
85 639 
80 64B 
85 641 
642 
F7 643 
ö6 644 
645 
F2 646 
647 
648 
649 
659 
651 
652 
653 
BB 654 
655 
6% 656 
657 
658 
659 
668 
661 
It 662 
663 
664 
665 
666 
667 
76 6D 668 
77T 6D 669 
81 dD 676 
d6 671 
672 
76 ÖD 673 


DIREND 
* 
* 


LDX 
LDY 
INX 
DEC 
BNE 
RTS 


BLOCKNO 


BLOCKNO+L 


TEMP 
RDD1 


nächster Block 


teren 


* PRODOS-DATEI EINLESEN 


* 


IRRE 


* 
MINDEX 
IINDEX 
= 
RDI1ST 


RDNEXT 


TYPE2 


RDDATA 


TYPEl 


SETMSB 


RDEND 
* 
* 


DFB 
DFB 


LDA 
STA 
STA 
LDX 
LDY 
LDA 
AND 
CMP 
BEQ 
CMP 
BEQ 
LDA 
JSR 
BCS 


LDX 
BNE 
LDX 
LDY 
LDA 
TAX 
LDA 
JSR 
BCS 
INC 
LDX 
STA 
LDY 
LDA 
TAX 
LDA 
JSR 
BCS 
INC 
LDA 
ORA 
BEQ 
LDY 
BNE 
STY 
LDX 
LDA 
ORA 
STA 
INY 
BNE 
INC 
DEX 
BNE 
RTS 


® 
D 


+d 
MINDEX 
IINDEX 
STYP+$11 
STYP+$12 
STYP 
#$F@ 
+$19 
TYPEL 
#629 
TYPE2 
#>DIRBUF 
RDBLOCK 
RDEND 


IINDEX 
RDDATA 
MINDEX 


Index im Master 
Index im Index 


liest 1.Block 
Master-Index 
Index-Index 
Nummer 1.Block 
=> Storage Type 
nur 1 Datenblock 


l Indexblock 


Master-Block 
in DIR-Bereich 


Index im Index- 
Block: wenn => 
dann nächster 


DIRBUF+$1®9,X Indexblock 


DIRBUF,X -> Blocknumner 
#>DIRBUF+$299 

RDBLOCK Indexblock 
RDEND 

MINDEX Index im Master 
+50 

IINDEX Index im Index 


DIRBUF+$3ß9,X 
DIRBUF+$229,X 


DADDR 
RDBLOCK 
RDEND 
IINDEX 
BLOCKNO 
BLOCKNO+1 
RDEND 
DOSTYP 
RDEND 
PTR 

#502 
(PTR),Y 
+$8ß 
(PTR),Y 


SETMSB 
PTR+1 


SETMSB 


Blocknumnmer 
Zieladresse 


Index-Index+l 
war das ein 
leerer Block? 
-> kein SETMSB 
TXT-Datei? 


PTR+1 ist gesetzt 
TXT: MSB wird 


innerhalb des 
Blocks gesetzt 


Zähler: $299 Byte 


euer 
* ProDOS-Blockread via RWTS * 
eaeeerr 


* 
BLOCKNO 
* 

IOB 
DRIVE 
VOLNO 
TRACK 
SECTOR 


RDADDR 


IOBCMD 
* 


DA 


HEX 
DFB 
DFB 
DFB 
DFB 
DS 
DA 
DS 
DFB 


70171017) 


d16h 
Öl 

BB 

DB 

20 

2 
DIRBUF 
3 

81 


ProDOS-Block 
Type + Slotx16 
Yolums-Numner 
DCT-Pointer 
READ-Zieladresse 


Sector Count 
Kommando: READ 


rear 


* 
RDBLOCK 


STA 
STY 
DTA 
STA 
TYA 
ORA 


BLOCKNO 
BLOCKNO+L1 
RDADDR+1 
BERtI 


BLOCKNO 


Aufruf mit Blockno 
in X{Low), Y(High) 


f, SETMSB, CLRBLK 


DB Bu? 


Blockno = 


ÖD9A: 
ÖD96: 
dD97: 
#D99: 
$DSB: 
ÖD9D: 
ÖDIE:: 
ADAB: 
MDA2: 
BDAS: 
DAS: 
ÖDAG: 


BDAT: 
BDAA: 
ADAB: 
ADAD: 
ADAE: 
ÖDBl: 
BDB2: 
ÖDBA: 
BDB5: 
ÖDBT: 
ÖDB8: 
ADBB: 


ÖDBE: 
ÖDCB: 
BDC3: 
dDce: 
ÖDCT: 
ÖDCA: 
ÖDCB: 
BDCE: 
ÖDD1: 
ADD3: 
BDDE: 
BDD9: 
$DDB: 
ÖDDD: 
ÖDDF: 
ÖDE2: 
ÖDES: 
DET: 
ÖDEA: 


ÖDEB: 
ÖDEE: 
ÖDFA: 
ADF3: 
DFB: 
ÖDFE: 
ÖDFF: 
BEBL: 
BEB3: 
BEBS: 
BEBS: 
BEBA: 


BEBB: 
BEBE: 


dEL3: 
BEIG: 
BEIE: 
BEIB: 
SEID: 
ÖEIE: 
AE2B: 
dER3Z: 
BE2G: 
ÖE2B: 
BERA: 


ÖB2B: 
dERE: 
BEZB: 
BES2: 


Dß 11 


84 85 
A2 62 
91 85 


DB FB 
E6 #6 


Da F6 


8C 7C BD 
AB 5 
2E 7C BD 
DB F9 
29 #7 


BD &B BE 
8D 7D AD 


Ad Bo 
Sc 89 dD 
8C 84 BD 


8C 7A BD 
28 13 BE 
Bß 18 

EE 81 BD 


EI @1 
69 99 
29 OF 
8D 7D dD 
28 13 ®E 
Bd #4 
EB 81 fD 


20 24 BB 
8D 87 

D2 D7 DA 
D3 AD C6 
BA AB A4 
BB 

Ad BD 

Bl 97 

20 DA FD 
28 SE FD 
38 

sh 


BB dD BB 
#9 87 85 


20 2B ®E 
AB BC 

BI 78 OD 
91 97 

88 

DB FB 

28 E3 B3 
20 D9 83 
Aı9 89 

85 48 

6 


28 E3 83 
84 97 

85 B8 
69 


1584 Bytes 


674 
675 


" 676 


677 
678 
679 
saß 
681 
682 
683 
684 
685 
686 
687 
688 
689 
699 
691 
692 
693 
694 
695 
696 
697 
698 
699 
798 
781 
782 
763 
784 
785 
786 
707 
Tö8 
789 
719 
71 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
122 


C5 68 CC C5 D2 


123 
724 
725 
726 
127 
728 
729 
738 
731 
d5 81 
TR 
733 
734 
735 
736 
737 
738 
1739 
749 
741 
742 
145 
744 
745 
746 
747 
748 


CLRBLK 


ÄLATE 


SETTRK 


= 
RDERR 


* 
RETRANS 


* 
RDSEC 


MVIOB 


* 
GETIOB 


BNE 
TAY 
STY 
LDX 
STA 
INY 
BNE 
INC 
DEX 
BNE 
CLC 
RTS 


STY 
TXA 
LDY 
ASL 
ROL 
DEY 
BNE 
TXA 
AND 
TAX 
LDA 
STA 


LDY 
STY 
STY 
INY 
STY 
INY 
STY 
JSR 
BCS 
ING 
LDA 
SBC 
ADC 
AND 
STA 
JSR 
BCS 
ING 
RTS 


JSR 
HEX 
ASC 


HEX 
LDY 
LDA 
JSR 
JSR 
SEC 
RTS 


DFB 


JSR 
LDY 
LDA 
STA 
DEY 
BNE 
JSR 
JSR 
LDA 
STA 
RTS 


JSR 
STY 
STA 
RTS 


XLATE 


PTR 
#582 
(PTR),Y 


CLRBLK 
PTR+1 


CLRBLK 


TRACK 


+05 
A 
TRACK 


SETTRK 
+97 


RETRANS,X 
SECTOR 


+58 
VOLNO 
RDADDR 


TOBCMD 


DRIVE 
RDSEC 
RDERR 
RDADDR+1 
SECTOR 
+91 

+99 
+$0F 
SECTOR 
RDSEC 
RDERR 
RDADDR+1 


PRINT 
8D87 


= 98 
5208 Bytes löschen 


nicht belegte 
Blocks ("sparse") 
werden gelöscht 


Blockno High 
Blockno Low 


5 Shifts links 
=> Teilung / 8 


Blockno Low 


-> phys. Sektorno 
für RWTS: Zurück- 
übersetzen! 


Volume-Nunner 9 
Zieladresse Low 
Kommando: READ 
Drive 2 

liest 1. Sektor 


-> RWTS-Fehler 
Zieladresse+$1ß9 


3DBS7531 
wird zu: 
ECA8642F 
-> 2. Sektor 
liest 2.Sektor 


"RWTS-FEHLER: $" 


8 
#13 


(IOBPNT),Y 


PRBYTE 
CROUT 


Fehlernummer 
<CR> danach 


#,$D,$B,9,7,5,3,1 rückwärts 


GETIOB 
#$dC 
IOB,Y 


(IOBPNT),Y 


MVIOB 
RWTSLOC 
RWTS 
#500 
PREG 


RWTSLOC 
IOBPNT 
IOBPNT+1 


setzt IOBPNT 


lädt Y-A 
R#TS-Aufruf 


Bug-Fix 


lädt Y-A 
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mngeäir= ZH. U WURWEL | 


erEl DEFGI 
akı-defah 


char nr:ıT 


Wenn Sie zu den Programmierern gehö- 
ren, die vergeblich versucht haben, in Ap- 
ple-Pascal im Grafikmodus einen deut- 
schen Text mit Umlauten auf den Bild- 
schirm zu bringen, oder den mitgelieferten 
Zeichensatz einfach langweilig finden una 
sich künstlerisch betätigen möchten, dann 
ist dieses Programm genau richtig für Sie. 


1. Zeichendarstellung in Pascal 


Im Gegensatz zu Applesoft-BASIC ist es 
in Pascal möglich, Strings oder Texte mit 
Hilfe der beiden Befehle „Wchar“ und 
„Wstring“ im Grafikmodus auf dem Bild- 
schirm auszugeben. Wie funktionieren 
nun diese beiden Prozeduren? 


In der Turtlegraphics-Unit wurde die An- 
weisung „Drawblock“ implementiert, mit 
deren Hilfe sich eine Punktmatrix auf dem 
Grafikbildschirm darstellen läßt. Wurde 
z.B. eine 10x10-Punkte große Matrix in 
einem Feld, das folgendermaßen dekla- 
riert wurde: 


Bild: 


Packed Array (1..10,1..10) of Boolean 
abgelegt, so kann es mit 
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insert bit% 


IZIEE, von. = c 


TUUWRTZERI" 


- Er; 


FEATURE? SFCAIN m 


Drawblock (Bild, 2, 0, 0, 10, 10, 5, 20, 10) 
auf den Hires-Bildschirm ausgegeben 
werden. Die Matrixpunkte werden vom 
Pascal-System als Bits in Bytes zusam- 
mengefaßt und in der Variablen „Bild“ ab- 
gespeichert. Beim Aufrufen der Prozedur 
„Drawblock“ werden diese Bytes zeilen- 
weise in den Grafikspeicher kopiert. Des- 
halb muß als zweiter Parameter die Anzahl 
der Bytes, die zur Darstellung einer Zeile 
nötig sind, angegeben werden. Die für den 
Kopiervorgang benötigten Daten werden 
durch die folgenden Parameter bestimmt: 


Drawblock (Matrix, Bytes, xs, ys, w, h, x0, 
y0, Mode) 


Matrix: Variable, die die Punktmatrix ent- 
hält 

Bytes: Anzahl der Bytes ((w+15) div 16) 
*2 

xs, ys: Anzahl der Punkte, die bei der 
Darstellung in x- bzw. y-Richtung über- 
sprungen werden sollen 

w, h: Breite und Höhe der Matrix 

x0, yO: Koordinaten der Bildschirmposition 
(linke untere Ecke der Matrix) 

Mode: Modus wie bei Chartype (z.B. 10 
für „Kopiere Array“) 
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Bei der Darstellung von Texten greifen 
„Wchar“ und „Wstring“ auf diese Proze- 
dur zurück. Sie verwenden für jedes Zei- 
chen eine 8x8-Punktmairix. Der Zeichen- 
satz enthält 128 Zeichen und ist nach dem 
bekannten ASClIl-Code aufgebaut. Es 
wurden lediglich die Ctrl-Zeichen durch 
Grafiksymbole [2.82 Apfelzeichen, 
Schachfiguren usw.) ersetzt. Die Zeichen- 
muster sind in einem Feld zusammenge- 
faßt und in einer Datei unter dem Namen 
„SYSTEM.CHARSET" auf der Diskette 
„APPLE1“ abgelegt. Bei der Initialisierung 
der Turtlegraphics-Unit wird der Zeichen- 
satz in den Arbeitsspeicher geladen, wo er 
während der Programmausführung auch 
bleibt. Mit Hilfe des „Designers“ istes nun 
möglich, diese oder eine genauso aufge- 
baute Datei zu laden, die einzelnen Zei- 
chen zu editieren und sie dann wieder 
abzuspeichern. 





2. Bedienung des Programms 


Das Programm ist menügesteuert, ähnlich 
wie das Pascal-System. Bei der Eingabe 
der folgenden Kommandos dürfen Sie 
kleine und große Buchstaben verwenden: 


L{oad: Laden eines Zeichensatzes von 
der Diskette. Ist die gesuchte Datei nicht 
vorhanden oder hat sie nicht das passen- 
de Format, so wird die Fehlermeldung 
„Datei fehlt“ ausgegeben. 

S(ave: Speichern des aktuellen Zeichen- 
satzes auf der Diskette. Eine schon beste- 
hende Datei mit dem gleichen Namen wird 
überschrieben. Deshalb geben Sie nur 
dann „SYSTEM.CHARSET" ein, wenn da- 
von bereits eine Sicherheitskopie existiert. 
N(eu: Löschen des Speichers. Nach der 
Eingabe dieses Kommandos werden Sie 
gefragt, ob nur das angezeigte Zeichen (= 
C(har), oder der ganze Zeichensatz (= 
Aflle) gelöscht werden soll. 

V(erify: Das aktuelle Zeichen wird neben 
der Matrix auch in Originalgröße darge- 
stellt. 

Q{uit: Beenden des Programms 

+, -: Das folgende bzw. vorangehende 
Zeichen wird zum Editieren auf dem Bild- 
schirm angezeigt. Diesem Kommando 
kann ein Faktor (2-127) vorangestellt wer- 
den. Die Eingabe „30+" würde beispiels- 
weise die Zeichenposition um 30 Zeichen 
vorrücken. 

Leertaste: Mit Hilfe der Leertaste kann ein 
Punkt in der Matrix gesetzt bzw. gelöscht 
werden. 


Die Ebenen Save, Load und Neu Können 
bei falschen Eingaben mit der „ESC"-Ta- 
ste verlassen werden. Die Tastenbele- 
gung für die Kursorsteuerung ist durch 
Konstanten (cu_l, cu_r... usw.) im Deklara- 
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tionsteil festgelegt. Die im Listing abge- 
druckten Zahlen beziehen sich auf einen 
Appie Ile; für andere Apple-Typen können 
sie leicht abgeändert werden. 


3. Beispiel 


Nach dem Starten des Programms er- 
scheint auf dem Monitor ein großes Qua- 
drat für die Darstellung der Matrix und eine 
Zeile mit den Kommandos. Gibt man die 
Anweisung „L“ für Load und dann „xSY- 
STEM.CHARSET" ein, so wird der Stan- 


DESIGNER.TEXT 


Unter Apple-Pascal 1.1 oder 1.2 

über C(ompile als DESIGNER, CODE 
compilieren. 

Dann zu Ubungszwecken über 

E(execute DESIGNER.CODE starten 

und über L(oad und 

Welche Datei laden? "#4:SYSTEM.CHARSET" 
einlesen. 








EEIEITIIITFFFTTITTTT ET TTTITTTrer } 


[sa Apple Pascal Designer 1. ») 


Im *) 
(«* Programm zur Aenderung von ®*) 
[® Zeichonsaetzen, die bei .) 


{» den Prozeduren 'Wochar' und ®) 
{» 'Wstring' verwendet warden. ®) 
(nnnnnen ee] 





{$C Gabor Herr 1984} 
{$S+} 


program designer; 
uses turtlegraphics; 


const x_anf=1ß9; 









{Kursortasten:} 
cu_l=8 ;{ links } 
cu_r=21;{ rechts} 
cu_u=1®;{ oben } 
cu_d=11;{ unten } 






{Steuertasten:} 
esc=27; { escape} 
bs =8 ; { backspace} 





charfile :file of tcharset; 
charset :tcharset; 
chartable:tchartable; 


begin 
pencolor (none); 
moveto(x,y); 
wstring({pattern) 
end; 


procedure cleartxt; 





begin 
viewport(®,279,145,168); 
fillscreen(black}; 
viewport(ß,279,9,191) 

end; 


procedure clearch; 
{loescht Matrix vom Bildschirn} 
begin 
viewport(99,189,19,1ßß); 
fillscreen(black); 
viewport(9,279,8,191) 

end; 
















y-anf= 28; {Bildschirmposition der Matrix} 
breite=1®; {Groesse eines Matrixpunktes |} 










tchartable=packed array[®..63] of boolean; 
tcharset =array[®..127] of tchartable; 





index, zeile,spalte,indiff, faktor:integer; 


procedure writes(pattern:string;x,y:integer); 
{schreibt String auf der angegebenen Position} 








{loescht Fenster auf dem Bildschirm} 






dard-Zeichensatz geladen. Nach dem 
Drücken der „+"-Taste erscheint das er- 
ste Zeichen, hier das „Apple“-Symbol, 
vergrößert auf dem Bildschirm. Mit Hilfe 
der Leertaste ist es jetzt möglich, den 
Punkt auf der Kursorposition zu setzen 
bzw. zu löschen. Um das neu erstellte 
Zeichen in Originalgröße zu sehen, muß 
das Kommando „Verify“ eingegeben wer- 
den. Jede Änderung wird direkt in den 
Speicher geschrieben, so daß man mit 
„Save“ den aktuellen Zeichensatz jeder- 
zeit auf der Diskette abspeichern kann. 











else 









end; 


begin 










end; 










begin 







begin 

















end; 







key:char; 
begin 








repeat 













end 


Kurzhinweise 

1. Zweck: 

Entwurf neuer und Änderung alter Zei- 
chensätze 

2. Konfiguration: 

Apple Il+/e/c; Apple-Pascal 1.1 oder 1.2 

3. Test: 

Eixecute DESIGNER.CODE 

4. Sammeldisk: 

DESIGNER.TEXT 

(Quelltext als DOS-3.3-Textfile, der mit 
GETDOS konvertiert und dann als 
DESIGNER.CODE compiliert werden muß.) 


if key=chr(bs) 
{bei <bs> zuletzt eingegebenes Zeichen loeschen} 
then 
begin 


if idx>l then 
begin 
idx:=idx-l; 
move(7); 
wchar(' '); 
move(7) 
end; 


{sonst Echo ausgeben} 
begin 


wchar (key); 
inword[idx]:=key; 
idx:=1idx+l 


end; 
until eoln(keyboard); 
inword:=copy(inword,1,idx—-1); 


procedure plotpoint(xpos, ypos:integer;mode:boolean); 
{setzt einen Punkt in die Matrix auf dem Bildschirm} 
var color:screencolor; 


if mode then color:=rhite 
else color:=black; 
xpos:=xpos#breite+tx_anf; 
ypos:=ypos#+breite+ty_anf; 
viewport (xpostl,xpostbreite-2, ypos+tl,ypos+breite-2); 
fillscreen(color); 
viewport(9,279,8,.191) 


procedure writechar({nr:integer)}; 
{zeichnet einen Charakter vergroessert 
und in Originalgroesse} 
var zle,spt:integer; 
| nbr:string; 


for zle:=ß to 7 do 


for spt:=ß to 7 do 
begin 


if chartable[zlex8+spt] 
then plotpoint(spt,zle,true); 


end; 
end; 
str(nr,nbr);writes(concat(nbr,' '),66,99); 
drawblock(chartable,1,9,9,8,8,261,91,19) 


procedure input(var inword:string;x,y:integer); 
{String-Eingabe mit Echo im Grafikmodus} 
var idx:integer; 


idx:=1;fillchar (inword,49,chr(32)); 
pencolor({none) ;moveto(x,y);turnto(18ß):; 


read(keyboard,key); 
if key=chr(esc) then 


{bei <esc> Eingabe abbrechen) 


begin 
inword:="!; 
exit(input) 
end; 


procedure savechset; 
{speichert den aktuellen Zeichensatz auf Diskette} 
var filename:string; 
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Gelegenheitsanzeigen 


Sie können unter dieser 
Rubrik zu einem besonders 
günstigen Preis 


@ Ihre Hardware und 
Software verkaufen 


@ Ihre Hard- und Software 
suchen 


® Kontakte knüpfen und 
vieles mehr 


Musteranzeige privat 


1 Druckzeile a 32 Buch- 
staben nur DM 5,50 
zuzügl. ges. MwSt. 
Mindestens 2 Druckzeilen 


Beispiel: 


Musteranzeige gewerblich 


1 Druckzeile a 32 Buch- 


staben nur DM 11,— zuzügl. 


ges. MwSt. Mindestens 
2 Druckzeilen 
Beispiel: 


Neu im Angebot: Professionelle, 
separate Tastatur für Apple II plus 


16 Funktionstasten und separatem 
Ziffernblock. 
Fa. Keyboard & co. 





nur DM 62,70 inkl. MwSt. 
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AUFTRAG FÜR KLEINANZEIGEN 


Bitte veröffentlichen Sie in der nächsterreichbaren Ausgabe nachstehenden 
Text unter folgender Rubrik: 

[| suche Hardware U) suche Software [] Verschiedenes 

[| biete Hardware I] biete Software [1] Chiffre 





Bitte En 32 Buchstaben pro Zeile-einschließlich Satzzeichen und Wort- 
zwischenräume. Bitte Absender nicht vergessen. Mindestens 2 Zeilen. 
Chiffregebühr DM 6,— zuzügl. MwSt. 






Zu der im Peeker, Heft ‚ selte= _—  ————— erschienenen 





Anzeige über = 


bitte ich um detaillierte Information. 
Ich wünsche U) Prospekt, Datenblatt [] Preisliste | schriftliches Angebot 1 tel. Rückruf 


gebe ich neben- 
stehende Bestellung 
unter Anerkennung 
Ihrer in der Anzeige 
genannten Liefer- und 
Zahlungsbedingungen 
auf. 





Unterschrift (für Jugendliche unter 18 Jahren der Erziehungsberechtigte) 
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Schreiben Sie uns, wenn Sie technische Fragen zu Aufsätzen im Peeker 
haben. Beachten Sie jedoch, daß die Redaktion keine Auskünfte über Be- 
zugsquellen erteilt: 
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N POSTKARTE 
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2 Straße 
| f Wohnort 
© Er ee TE Peeker-Börse 
| Bitte veröffentlichen Sie den um- Anzeigen-Service 
= stehenden Text von Zeilen 
© ä DM in der nächsterreich- Dr. Alfred Hüthig Verlag 
Al baren Ausgabe vom Peeker 
D. | Bei Angeboten: Ich a EL a alle Postfach 1 Ü 28 69 
Rechte an den angebotenen Sachen besitze : 
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POSTKARTE 
Straße 
| PLZ/Ort 

Karte bitte vollständig ausfüllen 

POSTKARTE 
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Bu Peeker 

Redaktion 
Straße Dr. Alfred Hüthig Verlag 
Be Postfach 102869 


6900 Heidelberg 1 
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Karte 








Wünschen Sie 
weitere Informatio- 
nen zu einer der im 
Heft erschienenen 
Anzeigen? 


Nichts einfacher als 
das. Produkt-Karte 
ausfüllen, frankieren 
und an den 
Inserenten (nicht an 
die Peeker-Redaktior 
senden. 


Vorher aber nicht 
vergessen: 

Kreuzen Sie an, 
welchen Informations- 
wunsch Sie haben. 


Damit erleichtern Sie 
dem Hersteller 

eine gezielte Beant- 
wortung Ihrer Anfrac 


Zum Schluß tragen 
Sie auf der Rück- 
seite die genaue 
Anschrift des 
Inserenten und Ihren 
Absender ein. 
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{Die Ein- und Ausgabekontrollen procedure invert:; 
werden unterdrueckt, um zu {Punkt invertieren} 
verhindern, dass beim Auftreten begin 
eines Fehlers das Programm ab- if chartable[zeile*8+spalte] 
stuerzt.} then 
{$i-} chartable[zeile#8+spalte]:=false 
else 
begin chartable[zeilex8+spalte]:=true; 
writes('Welche Datei speichern?' ,‚9,168}: plotpoint(spalte,zeile,chartable[zeiles8+spalte]); 
input (filename,®. 152}: drawblock(chartable,1,9,9,8,8,281,91,1P); 
cleartxt: cursor(spalte,zeile) 
if filename='' then exit({savechset}; end; 
rewrite(charfile, filename); procedure initialize; 
if ioresult<>® then {Variablen initialisieren und Bildschirm aufbauen} 
{Fehlerbehandlung} begin 
begin newset; 
writes( 'I/0-Fehler',9,169); | index:=ß;indiff:=ß;spalte:=P;zeile:=ß; 
writes('Return eingeben! ‚,152); initturtle; 
readln;cleartxt moveto(®,18®):wchar{chr(1l)); 
end; writes('designer 1.8 *N(eu,S(ave,L(oad,Q(uit',16,189):; 
charfile?:=charset; writes('v(erify,[-.+] next char, [sp] invert bitx',9,17®); 
put(charfile); moveto(®,169):;pencolor (white) ;noveto (279,169); 
close(charfile,lock) pencolor(none) ;moveto(ß9, 144): 
end; pencolor(white}:moveto(279,144); 
pencolor (none) ;moveto(9,196); 
procedure loadchset; pencolor(white};moveto(279,1ß6); 
{holt Zeichensatz von der Diskette} writes('char nr:9',19,90); 
var filename:string; moveto(199,89);turnto(d);pencolor(white); 
I, J : integer; move(ll);turn(9d);move{ll);turn{99); 
nove(ll});turn(9B);move(ll}; 
begin pencolor (none); 
writes('Welche Datei laden?',®,16ß):; viewport(97,182,17,182); fillscreen(white); 
input(filename, ®,152); clearch 
cleartxt; end; 
if filenane='' then exit(loadchset}; 
reset(charfile, filename); procedure edit; 
if ioresult<>® then {Das eigentliche Hauptprogramm} 
{Fehlerbehandlung)} var key:char; 
begin 


begin 


writes( 'Datei existiert nicht',®,169); net 


writes('Return eingeben',®,152}; 
readin;cleartxt 
end; 
charset:=charfilef:; 
close{charfile): 
index:=ß; 


cursor{spalte, zeile); 
repeat 
read(keyboard,key) 
until key in BEN Sl TE er 
Egal EA SEE ae a 
"009, 93 schr(cel). ehrlcur)., 
ehrlieienu]),.chrieu.d}]: 


for I:=6to3 do 
for J :=ß te 31 do 
arawblock(charset[Ix32+4J],1,9,90,8,8,Jx8,135-1x9,1ß) 


case key of 
Un: SUN new: 
Is! '!S!:savechset: 


chartable:=charset[index]; 
ud : '1','L':loadchset; 
{$i+} {Kontrolle wieder einschalten} org than eier 
else indiff:=faktor; 
| procedure newset; :if faktor=ß then indiff:=-1 
{loescht den aktuellen Zeichensatz} else indiff:=-faktor; 
| begin | :invert; 
fillchar(charset, sizeof(charset),chr{ß)); 
index:=ß; cursor(spalte,zeile); 
| chartable:=charset[index] it keyin [" ', 9a2'9', shricul), chri(eur|], 
end; ehr(emu]).chr(iewad)] 
| then 
procedure newchar; begin 
| {loescht das angezeigte Zeichen} case ord (key) of 
begin cu_l : if spalte>ß then =spalte-]l; 
fillchar (chartable,sizeof{chartable),chr(ß)) cu_r : if spalte<7 then =spaltetl; 
end; cu_u : if zeile>® then ‚=zeile-l; 
cu_d : if zeile<7” then :=zeile+tl; 
procedure cursor(x,y:integer); end; 
| {Kursorposition anzeigen} if key in ['9'..'9'} then 
begin {Voreinstellungsfaktor} 
chartype(6); | faktor:=faktor#1lß+ord(key)-48 


end 
else 
begin 
charset/[index]:=chartable; 
drawblock(chartable,1,9,9,8,8,index mod 32»8, 
135-index div 329,19); 


moveto({xxbreite+x_anf+l,y*breitety_anf+l); 
wchar('*');chartype(1ß) 
end; 


procedure new; 


Don, index:=indextindiff; 
ar indiff:=ß; faktor:=ß; 
begin if index<ß then index:=ß; 
| 1 T zl * 1. ‘ 
nn Neuer Cihar oder A(l11le?',9,169); if index>127 then index:=ß; 
| p chartable:=charset[index]; 
read(keyboard,key) clearch;writecharl[index); 
if key<>chr(esc) then s ER 
untl kags an jÜg.°9"]: 
begin end; 
Fe key in or,:cH 
then newchar {Hauptprogrann} 
else newset; begin 
end; initialize; 
cleartxt edit 
end; end. 
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Konvertierung von UCSD- in Turbo-Pascal-Textfiles 


Wer bislang unter UCSD-Pascal bzw. Ap- 
ple-Pascal 1.1 oder 1.2 gearbeitet hat und 
nunmehr Programme unter Turbo-Pascal 
entwickeln will, wird sicherlich einen Teil 
seiner alten UCSD-Programme überneh- 
men wollen. Allerdings kennt UCSD-Pas- 
cal zahlreiche Befehle, die Turbo-Pascal 
nicht kennt und umgekehrt. Ferner sind 
diverse Feinheiten zu beachten, so daß es 
mit der Konvertierung des UCSD-Pascal- 
Textfiles allein nicht getan ist. 


Das nachfolgende Turbo-Pascal-Pro- 
gramm READPAS läuft sowohl unter Tur- 
bo 2.0 als auch 3.0. Es ist jedoch darauf zu 
achten, daß der Quelltext auf Diskette 


compiliert werden muß, nachdem zuvor 
die Endadresse (nicht die Startadresse!) 
auf $C7FF gesetzt worden ist. Verfahren 
Sie im einzelnen wie folgt: 


1. Turbo-Pascal 2.0 oder 3.0 starten. 

2. Quelltext eingeben und unter REÄAD- 
PAS.PAS abspeichern. 

3. O(ptionen und dann C(om-File wählen 
und zum Schluß E(nd-Address auf $C7FF 
setzen. 

4, Nunmehr vom Hauptmenü aus C(ompi- 
lieren. 


Die entstandene Objektcode-Datei starten 
Sie dann unter dem CP/M-Betriebssystem 


von Michael Erperstorfer 


wie eine übliche COM-Datei mit 
>READPAS 

Das Programm setzt zwei Laufwerke vor- 
aus. Die CP/M- bzw. Turbo-Pascal-Ar- 
beitsdiskette legen Sie zweckmäßigerwei- 
se in Laufwerk 1 (A; #4) und die Apple- 
Pascal-Diskette in Laufwerk 2 (B; #5). 
Nach dem Start von READPAS.COM kön- 
nen Sie sich zunächst über Menü-Option 
2 das UCSD-Pascal-Directory ansehen. 
Danach brauchen Sie nur noch den Na- 
men des gewünschten UCSD-Textfiles 
und darauf den ggf. gekürzten Turbo-Text- 
file-Namen (mit Suffix „.PAS”) einzuge- 
ben. Die konvertierte Datei läßt sich direkt 
in den Turbo-Pascal-Editor einlesen, 


FOR I:=1 TO 4 DO 

BEGIN 
BIOS{11,BUFFSTART); {SETZT BEGINN DES LESEPUFFERS} 
BIOS(7}; {SETZT KOPF AUF SPUR 0} 
BIOS(9,SPURNUM); {SETZT SPURNUMMER} 
BIOS(10, TAB[TABINDEX,I]); {SETZT SEKTORNUMMER} 
BIOS(8,ORD({LWP)-65); {SETZT LAUFWERK} 
ERROR:=BIOS(12); {LIEST SEKTOR IN LESEPUFFER} 
IF ERROR<>O THEN 
BEGIN 


READPAS 


PROGRAM READPASCAL: [van Michael Erperstorfer} 


CONST BUFFSTART=$C800; {START DES 128 BYTE LESEPUFFER} 


TYPE 
FILETYP=RECORD 
FNAME: STRING[15] ; 
VON:0.,280; 


BIS:0,.,280; WRITELN(CHR(7),, "1/0 FEHLER IN LAUFWERK 'LNP."."); WRITELN; 
FTYP:STRING[4]; WRITE( 'CP/M-DISKETTE EINLEGEN UND <RETURN> DRUECKEN '); 
EOFBYTE:O..511 READLN: 

END; BDOS(0) 
END; 
VAR FILLBLOCK(I): 
BUFFER:ARRAY[0..127] OF BYTE ABSOLUTE BUFFSTART; {LESEPUFFER} WRITE('.') 
BLOCK: ARRAY[O..511] OF BYTE; {PASCAL-BLOCK} END 


DIRBLOCK: ARRAY[O..2047] OF BYTE; {4 BLOCKS FUER DIRECTORY} END; 
PASBUFF: ARRAY[0O..30719] OF BYTE; {PUFFER FUER PASCAL TEXT-FILE)} 
TAB: ARRAY[0..7,1,.4] OF 0.,31; {LOOK-UP TABELLE} 

EINTRAG: ARRAY[1..77] OF FILETYP; {MAX 77 FILES IN PASCAL} 

OUT: TEXT: 

VOLNAME:STRING[15]; 

BEZUGSLW, FILEZAHL , BLZAÄHL: INTEGER;; 


PROCEDURE READDIRECTORY; 
VAR I,J: INTEGER; 


PROCEDURE GETFILES; 
VAR K, INDEX, TYPNUM: INTEGER; 


LWP,LWC: CHAR; BEGIN 
INDEX:=26; 
PROCEDURE TABINIT; {SEKTOR/BLOCK-UMWANDLUNG PASCAL-CP/M} FILEZAHL:=0: 
BEGIN REPEAT 
TAB[O,1]:= 0; TAB[O,2]:= 1; TAB[0,3]:=12; TAB[0,4]:=13; IF DIRBLOCK[INDEX+6]>0 THEN 
TABIL.I]|: 24; TEE ,2] 25: TABI1,.351:- 4; TaB[ 1,4]. 5 BEGIN 


TAB[2,1]:=16; TAB[2,2]:=17: TAB[2,3]:=28; 
TAB[3,1]:= 8; TAB[3,2]:= 3; TAB[3,3]:=20; 
TAB[4,1]:=22; TAB[4,2]:=23; TAB[4,3]:= 2; 
TAB[5,1]:=14; TAB[5,2]:=15; TAB[5,3]:=26; 


TAB[2,4]:=29; 
TABI3,4]: 

TAB[4,4]:= 3; 
TAB[5,4]:=27; 


FILEZAHL: =FILEZAHLT]; 
WITH EINTRAG[FILEZAHL] DO 

BEGIN 
VON:=DIRBLOCK[ INDEX ]+DIRBLOCK [| INDEX+1] #256; 

TAB[6,1}:= 6; TAB[6,2]:= 7; TAB[6,3]:=18; TAB[6,4]:=19; BIS:=DIRBLOCK[ INDEX+2 ]+DIRBLOCK[ INDEX+3 ]#256; 

TAB .L1:-50: TAB|T 2]: >31; TAB[7.3j:-10: TABb[7.2] 11 EOFBYTE:=DIRBLOCK[ INDEX+22 ]+DIRBLOCK[INDEX+23 ]#256-1; 

END; TYPNUM:=DIRBLOCK[INDEX+4} ; 
CASE TYPNUM OF 

2: FlYP:=!C0ODE"; 

S:ELtP, TEXT”, 

5:FTYP:='DATA' 

PROCEDURE FILLBLOCK(NUM: INTEGER); {FUELLT PASCAL-BLOCKPUFFER} END; 

VAR J,BLINDEX:INTEGER; {MIT CP/M SEKTOR (4 MAL)} FNAME[O ] :=CHR (DIRBLOCK[ INDEX+6 ] ) ; 

BEGIN FOR K:=1 TO DIRBLOCK[INDEX+6] DO 
BLINDEX:=(NUM-1)*128; | FNAME[K]:=CHR(DIRBLOCK[S+INDEX+K] ) 
FOR J:=0 TO 127 DO END 

BEGIN END; 
BLOCK[BLINDEX] :=BUFFER [J ]; INDEX :=INDEX+26 
BLINDEX:=BLINDEX+1 UNTIL INDEX>20O21 


PROCEDURE READBLOCK (BLNUM: INTEGER) ; 
VAR SPURNUM, TABINDEX, I, ERROR: INTEGER; 


END END; 
END; 
BEGIN 
BEGIN CLRSCR; 


SPURNUM:=BLNUM DIV 8; 
TABINDEX :=BLNUM MOD 8; 


WRITE('Das Directory wird gelesen'); 
FOR I:=2 TO 5 DO 
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BEGIN 
READBLOCK(T); 
FOR J:=0 TO 511 DO DIRBLOCK] (I-2)#512+J]:=BLOCK[J] 
END; 
VOLNAME[O] :=CHR(DIRBLOCK[6]) ; 
FOR I:=1 TO DIRBLOCK[6] DO VOLNAME[I]:=CHR(DIRBLOCK[6+1] ); 
GETFILES 
END; 


PROCEDURE PRINTDIRECTORY; 
VAR IL, ZAEHLER: INTEGER; 
BEGIN 
IF FILEZAHL>O THEN 
BEGIN 
CLRSCR; 
ZAEHLER:=O; 
WRITELN( "Directory der Pascal-Diskette ',VOLNAME,':'); 
WRITELN; 
WRITELN( ' Filename Laenge in Blocks Filetyp'); 
WRITELN{ !'——-———----—- -— . -. — . 2 


FOR I:=1 TO FILEZAHL DO WITH EINTRAG[I] DO 
BEGIN 
WRITELN{FHAME:20, [BIS-VON) :10, ' 
ZAEHLER :=ZACHLER+L; 
IF (ZAEHLER=18] OR (I=SFILEZAHL) THEN 
BEGIN 
WRITELN: 
WRITE "Weiter mit <return> '); 
READLN:; 
ZAEHLER:=0; 
CLRSCR 
END 
END 
END 
END; 


t FTYP, '-FILE!); 


PROCEDURE TRANSFER; 

VAR I,J, INDEX, ANFANG, ENDE: INTEGER; 
PASNAME, CPMNAME: STRING[ 15]; 
TABFLAG:BOOLEAN; 

EIN:CHAR; 


FUNCTION GETNAME: BOOLEAN; 
BEGIN 
CLRSCR; 
WRITE('Name des Pascal-Textfiles: '}; 
READLN ( PASNAME) ; 
IF POS{'.TEXT' , PASNAME)=0 
THEN PASNAME:=CONCAT{PASNAME, ' .TEXT'); 
GETNAME:=FALSE; 
FOR I:=1 TO FILEZAHL DO 
IF EINTRAG[I].FNAME=PASNAME THEN 
BEGIN 
GETNAME:=TRUE;; 
INDEX:=I 
END 
END; 


PROCEDURE WRITEFILE; 
VAR IND,I:INTEGER; 
BEGIN 
IND:=0; 
FOR I:=ANFANG TO ENDE DO 
BEGIN 
READBLOCK(TI); 
FOR J:=0 TO 511 DO 
BEGIN 
PASBUFF[IND] :=BLOCK[J]; 
IND:=IND+1 
END 
END; 
READBLOCK (ENDE+L); 
FOR J:=0 TO EINTRAG[INDEX].EOFBYTE DO 
BEGIN 
PASBUFF[IND] :=BLOCK[J]; 
IND:=IND+L 
END; 
BIOS (8,BEZUGSLW); 
IND:=IND-1; 
TABFLAG:=FALSE; 
WRITELN; WRITE('Name des CP/M-Files {ohne Laufwerksangabe}:')}; 
READLN {CPMNAME) ; 
CPMNAME :=CONCAT(LWC, ':',CPMNAME) ; 
ASSIGN (OUT, CPMNAME) ; 
RE#RITE(OUT); 
FOR I:=0 TO IND DO 
IF TABFLAG THEN 
BEGIN i 
FOR J:=1 TO PASBUFF[I]-32 DO WRITE(OUT, ' 
TABFLAG:=FALSE 
END 


'); {LEERZEICHEN} 
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ELSE 

BEGIN 
CASE PASBUFF[I] OF 
13: W#RITE(OUT,CHR{13),CHR{10)}; {LINEFEED ANFUEGEN} 
16:TABFLAG:=TRUE; {NAECHSTES ZEICHEN: EINRUECK-WERT} 
32..126:WRITE(OUT,CHR(PASBUFF[I])) {NUR LESBARE ZEICHEN} 


END; 
IF I MOD 128=0 THEN WRITE('.') 
END; 
CLOSE (OUT) 
END; 
BEGIN | 
CLRSER ; 
WRITELN('Pascal-Diskette in das Laufwerk ', 
LWP,' einlegen.'); WRITELN; 
WRITE('F)ertig oder zurueck zum MJenu ? '); 
REPEAT 


READ(KBD,EIN); EIN:=UPCASE(EIN) 
UNTIL EIN IN ['F','M']; 
IF EIN='F' THEN 
BEGIN 
READDIRECTORY; 
IF NOT GETNAME THEN 
BEGIN 
WRITE{PASNAME, 


' nicht gefunden | Weiter mit <return> '); 
READLN; 


PRINTDIRECTORY 

END 

ELSE 

BEGIN 
ANFANG :=EINTRAGI INDEX] . VON+2; 
ENDE :=EINTRAG[ INDEX] .BIS-2; 
IF (ENDE-ANFANG)>58 
THEN WRITELN{CHR(7), "Programm zu gross!') 
ELSE WRITEFILE 

END 

END 
END; 


PROCEDURE MENU; 
VAR AUSWAHL: CHAR; 
ENDE: BOOLEAN; 
BEGIN 
ENDE:=FALSE; 
LWP:='B'; {DEFAULT P-SYSTEM: LAUFWERK C} 
LWC:='A'; {DEFAULT CP/M: LAUFWERK D} 
REPEAT 
CLRSCR; 
GOTOXY(28,1); WRITELN{'READPASCAL'); WRITELN; 


WRITELN( ' von Michael Erperstorfer'); WRITELN; 
WRITELN{' Programm zum Lesen von UCSD-Textfiles'); 
WRITELN; 

WRITELN{ '1...Laufwerk-Daten aendern (CP/M: ', 

WRITELN: Luc," Pascal: '",LWP,'}"]: 

WRITELN( '2...Directory der Pascal-Diskette'); WRITELN; 


WRITELN('3...Pascal-Texfile nach CP/M uebertragen'); WRITELN: 
WRITELN('4...E ND E'); WRITELN; WRITELN; 

WRITE('Auswahl: '); 

REPEAT 


READ(KBD, AUSWAHL); WRITELN( AUSWAHL) 
UNTIL AUSWAHL IN ['1'..'4']; 
CASE AUSWAHL OF 
'1':BEGIN 
CLRSCR; 
WRITE( "Laufwerk fuer die CP/M-Diskette (<A>,<B>}: '); 
REPEAT 
READ(KBD,LWC): WRITELN(LWC); 
LWC:=UPCASE(LWC) 
UNTIL LWE IN [ A! ."B!]:; 
WRITE{ 'Laufwerk fuer die Pascal-Diskette {<A>,<B>}: '); 
REPEAT 
READ(KBD,LWP}; WRITELN(L#WP); 
LWP:=UPCASE(LWP) 
UNLIE LWP IN [AT =B7] 
END; 
'2‘':BEGIN 
READDIRECTORY; 
PRINTDIRECTORY 
END; 
'3': TRANSFER; 
14':ENDE:=TRUE 
END 
UNTIL ENDE 
END; 
BEGIN 
BEZUGSLW:=BDOS (25); 
TABINIT; 
MENU; 
BIOS (8, BEZUGSLY) 
END, 
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Ein vollcompilierendes 6502-Pascal Erfahrungsbericht von Herbert Pohl 


Hinweis: Der nachfolgende Erfahrungsbe- 
richt basiert noch auf den Kyan-Pascal- 
Versionen 1.0 und 1.1. Die verbesserte 
Version 1.2 wurde am 14.08.1985 ausge- 
liefert. 


Was erwarten Sie, wenn Sie das Pascal- 
Programm GENAU unter UCSD-Pascal 
oder Turbo-Pascal auf einem Apple Ile 
laufen lassen? Unter Turbo-Pascal (V1.0 
oder V2.0) wird der Rechner nach etwa 
53s jammern, unter UCSD-Pascal nach 
etwa 144s. Ohne Ausgabe der Rechener- 
gebnisse auf dem Bildschirm sind es 1,85 
bzw. 3,5s, vom ersten Piepsen des Laut- 
sprechers an gerechnet. 

Unter Kyan-Pascal, Version 1.0 und 1.1, 
das seit einiger Zeit für den Apple |l erhält- 
lich ist, frohlockt der Rechner nach 24 
bzw. 5s. Unter diesem Pascal wird also im 
Gegensatz zu den beiden anderen Pascal- 
Implementierungen bei den aufeinander- 
folgenden Subtraktionen exakt der Wert O 
erreicht. 

Begründet sein muß dies darin, daß Tur- 
bo- und UCSD-Pascal Real-Zahlen als 
Dualzahlen darstellen, während Kyan-Pas- 
cal offenbar die BCD-Darstellung benutzt. 
Letzteres ist im mit dem System mitgelie- 
ferten Tutorial Manual allerdings nicht do- 
Kkumentiert, jedoch sprechen die im obigen 
Programm erreichte Genauigkeit, der 
durch Real-Zahlen darstellbare Zahlenbe- 
reich (betragsmäßig von 1.0E-99 bis 
9.999999999999E +99, 13 geltende Zif- 
fern) und der zur Darstellung benötigte 
Speicherplatz von acht Bytes hierfür, 


1. Lieferumfang 


Aufgrund einer Anzeige in der Zeitschrift 
„Incider“ habe ich das Kyan-Pascal-Sy- 
stem Anfang Mai in den USA bestellt und 
innerhalb von vierzehn Tagen für knapp 
60,00 Dollar erhalten; inzwischen beträgt 
der Preis einschließlich Versand für Euro- 
pa knapp 82.00 Dollar. Kyan-Pascal soll 
übrigens auch für den Atari 800 XL und 
den Commodore C64 erhältlich sein. 

Geliefert wurden eine Pascal-System-Dis- 
kette und ein Tutorial Manual, wobei die 
nähere Untersuchung des Systems das 
Vorhandensein einiger Fehler im Manual 
zeigte. Ansonsten ist dieses Anleitungs- 
buch recht geschickt aufgebaut und insbe- 
sondere auch für Anfänger geeignet, so- 


0 


fern sie einigermaßen Englisch beherr- 
schen. Die Bedienung von Editor und 
Compiler wird anhand von Beispielen er- 
Iäutert. Hierauf erfolgt eine kurze Einfüh- 
rung in die Programmierung mit Pascal 
und die Vorstellung der meisten der in 
diesem System eingebauten Möglich- 
Keiten. 


Auf der Diskette der neuesten Version 1.2 
befinden sich die Dateien 


PRODOS (ProDOS-System 1.1.1) 

FILER (ProDOS-Kopierprogramm) 

ED (Kyan-Pascal-Editor 40 Z/Z) 

E80 (Kyan-Pascal-Editor 80 Z/Z) 

PC (Kyan-Pascal-Compiler) 

LIB (Kyan-Pascal-Library) 
HELLO.SYSTEM (Startup-Programm und 
zugleich Hauptmenü) 


sowie Hilfsprogramme für ProDOS (z.B. 
DIR für Directory-Anzeige), Include- 
Dateien (für Hires-Grafik und String-Verar- 
beitung) und Beispielprogramme in Text- 
und Codeform. Kyan-Pascal läuft auf dem 
Apple II unter dem Betriebssystem Pro- 
DOS, das ebenso wie der ProDOS-Filer 
mitgeliefert wird und nur mit dem Kyan- 
System zusammen benutzt werden darf. 
Inzwischen habe ich (am 09.07.85) von 
Kyan Software gratis (!) die Version 1.1 
des Systems erhalten. Auch sonst bin ich 
bislang sehr zuvorkommend bedient 
worden. 

Meine Untersuchungen stützen sich auf 
die Version 1.0, sofern nicht anders er- 
wähnt. In Tabelle 3 finden Sie die Entste- 
hungsdaten wichtiger Dateien. 


2. Kurzeinführung 


Angenommen, man will das Programm 
GENAU eingeben, compilieren und laufen 
lassen. Hierzu ist die Kyan-Diskette oder 
eine entsprechende Arbeitsversion in 
Laufwerk 1 zu stecken und der Rechner 
anzuschalten. Zunächst wird ProDOS und 
dann das Hauptmenü-Programm PAS- 
CAL.SYSTEM (jetzt HELLO.SYSTEM) ge- 
laden, das sich auf dem Bildschirm mit 
KYAN PASCAL (Version 1.X) 

meldet, worauf das System auf die Einga- 
be eines Kommandos wartet, die mit der 
Return-Taste abzuschließen ist. Von die- 


sem Hauptmenü aus kann man durch Ein- 
gabe des jeweiligen Programmnamens 


1. den Editor (ED oder E80) 

2. den Compiler (PC) oder 

3. den compilierten Objektcode (z.B. GE- 
NAU.O) 


starten. Danach kommt man stets in das 
Hauptmenü zurück, das man jedoch durch 
Eingabe eines anderen ProDOS-System- 
programms (z.B. BASIC.SYSTEM) verlas- 
sen kann. (Anm.d.Red.: Das Hauptmenü- 
Miniprogramm PASCAL.SYSTEM, das ab 
Version 1.2 HELLO.SYSTEM heißt, ist we- 
gen der System-Bit-Map-Konflikte mit 
ProDOS erforderlich. Beispielsweise kann 
man das BASIC.SYSTEM nicht direkt aus 
dem Kyan-Editor heraus, wohl aber über 
das HELLO.SYSTEM starten.) 


2.1. ED/E80 = Editor 


ED ruft den 40-Z/Z-Editor auf, einen Bild- 
schirmeditor, dessen Steuerbefehle sehr 
an die des Turbo-Pascal-Editors erinnern. 
Zur Steuerung des Cursors sind sowohl 
die Pfeiltasten als auch TS, TD, TE und 
1X möglich. Außerdem gibt es Befehle, 
um den Cursor wortweise, seitenweise 
und an den Anfang oder das Ende der 
Datei zu bewegen. Ferner kann man ein- 
zelne Zeichen oder Zeilen löschen, Text- 
blöcke markieren, löschen und verschie- 
ben. Weiter kennt der Editor einen mit der 
ESC-Taste aufzurufenden Modus, in dem 
der Text auf Diskette abgespeichert, Text 
von der Diskette gelesen und eingefügt, 
der Name der Datei (eigentlich der Pro- 
DOS-Pfadname) geändert und die Editor- 
funktionen des Suchens und Ersetzens 
aufgerufen werden können, Aus diesem 
Modus heraus wird der Editor auch verlas- 
sen. Mittels dieses ESC-Modus ist es 
ebenso möglich, Textdateien zu transfe- 
rieren, indem man sie in den Editor lädt, 
den Pfadnamen ändert und die Datei mit 
dem neuen Pfadnamen abspeichert. 

Nach seinem Aufruf fordert der Editor, der 
für seine Arbeit den gesamten Speicher 
von $0800 bis $BAFF benutzt, die Eingabe 
eines ProDOS-Pfadnamens an. Findet er 
die zugehörige Datei, wird sie eingelesen 
und auf dem Bildschirm angezeigt, wobei 
der Cursor am Textanfang steht. Ist die 
Datei nicht zu finden, erfolgt die Meldung 
„EILENOT FOUND FRESS ANY KEY: 
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Nach einem Tastendruck wird der Bild- 
schirm gelöscht, und man kann seinen 
Text eingeben. Eine Status- oder Kom- 
mandozeile wie bei Turbo- oder UCSD- 
Pascal gibt es nicht. Jedoch kann jederzeit 
mit <ESC> ein Hilfsmenü aufgerufen 
werden, ohne den eigentlichen Text zu 
stören. Von diesem Hilfsmenü aus ist auch 
eine Aufstellung aller Editorbefehle aufruf- 
bar, was wiederum für Anfänger sehr hilf- 
reich ist. 

In der Version 1.0 unterstützt der Editor 
keine 80-Zeichenkarte. Die eingegebene 
Zeichenfolge wird beim Erreichen eines 
Zeilenendes einfach in der nächsten Zeile 
des Bildschirmes fortgesetzt, so daß meh- 
rere Zeilen auf dem Bildschirm eine logi- 
sche Zeile im Text ausmachen. Logische 
Zeilen müssen durch Einfügen von <CR> 
abgeschlossen werden. Mit dem Kyan-Sy- 
stem der Version 1.0 geschriebene Pro- 
gramme können jedoch die 80-Zeichen- 
karte ohne Einschränkungen benutzen. 
Mit der Version 1.1 istnun neben dem 40- 
Z/Z-Editor ED ein 80-Z/Z-Editor E80 ver- 
fügbar, der auch eine Tabulator-Funktion 
besitzt. 


2.2. PC = Pascal-Compiler 


Mit PC wird der Compiler aufgerufen, der 
sich mit „PC>" meldet und die Eingabe 
des Namens des zu compilierenden 
Quelltextes erwartet. Nach Tippen des 
entsprechenden Pfadnamens, etwa 
GENAU, 

beginnt der Compiler seine Arbeit und er- 
zeugt ein 6502-Maschinenprogramm, das 
ebenfalls auf Diskette abgelegt wird, und 
zwar unter demselben Pfadnamen wie der 
Quelltext, jedoch mit einem angehängten 
„.O", also etwa „GENAU.O“, Die Compi- 
lierungszeiten sind mit denen des UCSD- 
Pascal vergleichbar, jedoch ist der Fort- 
gang der Compilierung in der Regel nicht 
auf dem Bildschirm verfolgbar. 

Beim Starten des Compilers kann man 
dem Pfadnamen der Pascal-Quelldatei ei- 
ne oder mehrere Compileroptionen anfü- 
gen, die durch Bindestriche vom Pfadna- 
men und voneinander zu trennen sind. 
-Ln erzeugt hierbei die Ausgabe des com- 
pilierten Programmes als Assemblerdatei 
über Steckplatz n, 

-En lenkt die Fehlermeldungen auf Steck- 
platz n um, die sonst auf dem Bildschirm 
erscheinen, während 

-ÖO die Erzeugung des Objektcodes unter- 
drückt. Die Angabe des Steckplatzes ei- 
nes Diskeitenlaufwerkes führt allerdings 
zu einem Äbsiurz des Compilers. Ich habe 
herausgefunden, daß die Eingabe dieser 
Optionen mit Großbuchstaben erfolgen 
muß und auch eine bestimmte Reihenfol- 
ge einzuhalten ist, wenn alles reibungslos 
ablaufen soll. Das Tutorial Manual weist 
hierauf nicht hin. 
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In der Version 1.1 sind die Bezeichnungen 
für die Optionen leicht geändert worden. 
Auch ist jetzt Kleinschreibung und eine 
beliebige Reihenfolge zulässig: 

„on“ wählt das Peripheriegerät an, auf 
dem dann zumindest die Fehlermeldun- 
gen erscheinen, „-L“ erzeugt die Ausga- 
be der Assemblerdatei auf dem angewähl- 
ten Peripheriegerät. Die Option „-O“ ar- 
beitet wie in Version 1.0. 

Mit Hilfe dieser Option ist eine reine Syn- 
taxprüfung des Quelltextes möglich, die 
etwas weniger Zeit beansprucht als eine 
vollständige Compilierung. Da der Kyan- 
Compiler nach Auftreten eines Syntaxfeh- 
lers zwar die Erzeugung von Objektcode 
einstellt, aber die Syntaxprüfung ohne 
Pause weiter durchführt, empfiehlt es sich, 
die Fehlermeldungen auf einen Drucker zu 
lenken, wenn man nicht die Ausgabe mit 
? S unterbrechen will. Der Compilerlauf 
selbst kann übrigens jederzeit mit der Re- 
set-Taste abgebrochen werden, ohne daß 
die Quelldatei verlorengeht. 


2.3. RUN 


Nach erfolgreicher Compilierung wird das 
Programm gestartet, indem man im Haupt- 
menü einfach den Pfadnamen der zugehö- 
rigen Objektdatei, also etwa 

GENAU.O 

eingibt. Diese Datei ist eine Systemdatei 
im Sinne von ProDOS, so daß man sogar 
„SYSTEM.PASCAL“ (jetzt HELLO.SY- 
STEM) auf der Diskette durch ein eigenes 
Programm auf der Diskette ersetzen könn- 
te, das dann beim Bootvorgang automa- 
tisch aufgerufen werden würde. Unver- 
zichtbar für ein erfolgreiches Starten des 
Programms ist auf jeden Fall das Vorhan- 
densein der zusätzlich zum Objektcode 
benötigten Runtime-Library LIB in dem- 
selben Volume-Direciory (Version 1.0) 
bzw. in demselben Subdireciory (Version 
1.1). 


3. Compiler und Objektcodedatei 


Beim Compilieren benötigt der Compiler 
vermutlich drei Läufe, was die hierbei er- 
zeugbaren Assemblerausdrucke und ein 
Dump des Compilers nahelegen. Im Tuto- 
rial Manual gibt es hierüber keine Hinwei- 
se; ein Reference Manual liegt mir nicht 
vor. Zunächst scheint der Quelltext in ei- 
nen Zwischencode, der dem P-Code des 
UCSD-Systems sehr ähnelt, übersetzt zu 
werden. Dies bedeutet offenbar auch, daß 
durch das Kyan-System auf dem 6502- 
Prozessor eine Stackmaschine ähnlich der 
P-Maschine simuliert wird. In einem weite- 
ren Lauf wird der Zwischencode vermut- 
lich in einen Assembler-Quelltext umge- 
setzt. Auf jeden Fall gibt es zu jedem 
Befehl des Zwischencodes im Compiler 
ein entsprechendes kleines Assem- 
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blerprogramm. In einem dfritten Lauf wird 
dann endlich die Objektcodedatei erzeugt. 
Dieses Vorgehen scheint sehr umständ- 
lich zu sein und ist sicherlich für die im 
Vergleich zu Turbo-Pascal langen Compi- 
lierungszeiten mit verantwortlich. Aller- 
dings hat Kyan Software so eine äußerst 
elegante Möglichkeit verwirklicht, Maschi- 
nenprogrammteile in ein Pascal-Pro- 
gramm einzubinden. 


3.1. Assembler und Compiler 


Für die folgenden Betrachtungen soll das 
Programm P3 zugrundegelegt werden, 
das die 80-Zeichenkarte des Apple ein- 
schaltet. Die hier eingefügte Prozedur 
„Procedure pr (slot: integer);“ stammt von 
der Kyan-Diskette. Anhand des Program- 
mes P3 sieht man auch, daß Kyan-Pascal 
die Schnittstellen zu Peripheriegeräten so 
anspricht, wie es Applesoft oder der Ap- 
ple-Monitor tun. Wählt man beim Compi- 
lieren die Option „-L1“, hier also 

P3-L1 

(vV1.1: P3-L-S1), 


so erzeugt der Compiler die Ausgabe ei- 
ner Assemblerdatei auf dem Drucker, falls 
dieser wie üblich in Steckplatz 1 ange- 
schlossen ist. Ein Abspeichern dieser 
Datei auf Diskette ist aus den o.g. Grün- 
den leider noch nicht möglich. 

Eine Untersuchung der Assemblerdatei ist 
trotzdem sehr lehrreich und macht das 
Kyan-Pascal-System sicherlich für diejeni- 
gen interessant, die Informatik unterrich- 
ten und hierbei auch auf die Arbeitsweise 
und den Aufbau von Compilern eingehen 
wollten. 

Betrachten wir nun also die Datei „P3“: 
Zunächst ist hier am Quelltext zu erken- 
nen, wie Kyan-Pascal Maschinenbefehle 
in ein Pascal-Programm einbindet. Die 
Folge der Maschinenbefehle ist mit #A zu 
eröffnen und mit # abzuschließen. Diese 
Steuerzeichen müssen in der äußersten 
linken Spalte einer logischen Zeile im 
Quelltext stehen und steuern den Compi- 
ler. Sehr angenehm ist, daß das Maschi- 
nenprogramm als Folge von Assembler- 
Mnemonics einzugeben ist und nicht, wie 
bei den Inline-Anweisungen von Turbo- 
Pascal, schon als fertig assemblierter Hex- 
code. Gerade durch diese Eigenschaft 
könnte Kyan-Pascal zu einem Leckerbis- 
sen für Freunde der Maschinensprache 
werden. Das Tutorial Manual gibt an, daß 
man Marken in Maschinensprachteilen 
nicht mit dem Buchstaben L beginnen las- 
sen soll, weil man hierdurch den Compiler 
verwirrt, der bis auf einige Ausnahmen 
sämtliche Marken mit L beginnen läßt und 
dann durchnumeriert (Li, L2 usw.). Wei- 
terhin muß in Maschinenprogrammteilen 
das X-Register des Prozessors gerettet 
werden, da es als Stapelzeiger in der Null- 
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seite bei der Übergabe von Daten und 
Parametern bzw. Adressen von Variablen 
benutzt wird. Anders als im P-System wird 
hierfür nicht der CPU-Stapel verwendet. 


Wenn im Hauptmenü 

P3:O 

eingegeben wird, so wird die Objektdatei 
P3.0, also das 6502-Maschinenpro- 
gramm, ab $2000 in den Speicher geladen 
und gestartet. Das Programm überprüft 
zunächst, ob sich in dem durch das Pro- 
DOS-Präfix angegebenen Directory die 
Datei LIB, also die Laufzeitbibliothek des 
Pascal-Systems, befindet. Wird LIB gefun- 
den, so wird versucht, sie in zwei Teilen in 
den Hauptspeicher zu bringen, von $0800 
bis $1FFF einschließlich und von $BO00 
bis $BAFF einschließlich. Ab $BFOO be- 
ginnt ProDOS. Mißlingt dies oder ist LIB 
nicht vorhanden, so verzweigt das Pro- 
gramm zur Marke ERROR und von dort 
aus in den Apple-Monitor. Dies wird durch 
den Code von $2000 bis $207F bewirkt. 
Unter Version 1.1 ist für diesen Vorgang 
der Code von $2000 bis $20AC verant- 
wortlich, wobei lediglich LIB woanders ge- 
sucht wird. 


Läuft soweit alles erfolgreich, verzweigt 
das Programm in die Systemroutine ab 
$0800, die Startroutine. Diese nimmt zu- 
nächst die Rücksprungadresse vom CPU- 
Stapel, prüft anhand der ab $2082 (Ver- 
sion 1.1: $20AF) abgelegten Parameter, 
ob das eigentliche, in Maschinencode um- 
gesetzte Pascal-Programm zu einer ande- 
ren Startadresse zu verschieben ist, und 
führt letzteres gegebenenfalls auch durch. 
Vor einer eventuellen Verschiebung befin- 
det es sich ab $208F (Version 1.1: $20B3) 
im Speicher. Anschließend legt die Start- 
routine eine neue Rücksprungadresse auf 
den Stack und führt einen Sprung zum 
Beginn des eigentlichen Hauptprogramms 
durch, das mit RTS endet und sich so als 
Fortsetzung der Startroutine herausstellt. 
Nach dem Rücksprung aus dem Pascal- 
Hauptprogramm werden in einer anderen 
Systemroutine, der Schlußroutine, alle 
noch offenen Dateien geschlossen und in 
das Hauptmenü zurückgesprungen. 


Der Kyan-Compiler setzt die von $2000 
bis $208E (Version 1.1: $20B2) stehenden 
Befehle vor jedes compilierte Programm 
und bindet es so zwischen Start- und 
Schlußroutine ein, wodurch ein ordnungs- 
gemäßes Funktionieren des Systems ge- 
währleistet wird. Dies bedeutet aber auch, 
daß bei jedem Start eines compilierten 
Pascal-Programmes die gesamte System- 
bibliothek neu von der Diskette geladen 
wird, was merklich Zeit kostet. Hier emp- 
fiehlt es sich, eine RAM-Disk einzusetzen. 


Sehr schön an den vom Compiler erzeug- 
ten Assemblerdateien finde ich, daß je- 


2 


weils als Kommentar die aktuelle Zeile des 
Pascal-Quelltextes auftritt, gefolgt von ih- 
rer Umsetzung In Maschinencode. Gerade 
diese Eigenschaft dürfte den Kyan-Pascal- 
Compiler für jeglichen Unterricht interes- 
sant machen, der sich in irgendeiner Wei- 
se mit Compilerbau befaßt. Dies dürfte 
auch die Arbeit sehr erleichtern, wenn 
man den vom Compiler erzeugten Code 
optimieren möchte, auch wenn hierzu eine 
Dokumentation der Laufzeitroutinen In LIB 
wünschenswert wäre. Vielleicht kann die- 
se Eigenschaft auch über einige in den 
Compilern der Versionen 1.0 und 1.1 noch 
vorhandene Kinderkrankheiten hinwegtrö- 
sten. 


3.2. Labels 


Der Compiler definiert einige wichtige 
Marken, auf deren Bedeutung ich hier kurz 
eingehen möchte. Es sind dies neben 
PATHNAME und ERROR die Marken 
GLEOBABRLOCAL SPARTE SMILE ER A 
ZA Und: 

— GLOBAL ($B000) kennzeichnet den er- 
sten dem Benutzerprogramm nicht mehr 
verfügbaren Speicherplatz und dient als 
Referenzmarke für die sämtlichen Varia- 
blen zuzuordnenden Speicherplätze. So 
dient GLOBAL-1 ($AFFF) als Pufferspei- 
cher für die Datei INPUT (Tastatur), GLO- 
BAL-2 ($AFFE) als Pufferspeicher für die 
Datei OUTPUT (Bildschirm), von GLO- 
BAL-3 an abwärts werden die im Pro- 
gramm auftretenden Variablen angelegt, 
und zwar bis GLOBAL-L4 die globalen 
Variablen, dann dynamisch die bei Proze- 
duraufrufen erforderlichen lokalen. 

— LOCAL ($0002) und SP ($0004) sind 
Zeiger auf den Variablenstapel, den sie 
beim Aufruf von Prozeduren mittels einer 
linearen, verketteten Liste verwalten, wo- 
durch unter anderem auch Rekursion or- 
ganisiert wird. Mit Hilfe dieser Zeiger er- 
folgt außerdem der Zugriff auf lokale und 
aktuelle Parameter von Prozeduren, denn 
diesen Parametern werden, anders als 
den globalen, keine festen Speicherplätze 
zugewiesen. 

— P ($0080) ist die Startadresse für die bei 
ProDOS-Aufrufen erforderlichen Parame- 
ter während des Programmstarts, Ob P 
sonst noch vom System benötigt wird, ist 
mir noch nicht klar. 

— T ($0010) dient als Zwischenspeicher 
insbesondere bei der Aktivierung von Pro- 
zeduren und darf offenbar auch von Ma- 
schinenprogrammiteilen durch den An- 
wender benutzt werden. 

—- MLI ($BFO0) ist die Eintrittsadresse für 
ProDOS-Systemaufrufe, 

— LO gibt die Speicherstelle an, von der ab 
unmittelbar nach dem Einlesen der Ob- 
jektcodedatei der Maschinencode des ei- 
gentlichen Pascal-Programms steht. 


— L1 bezeichnet die Speicherstelle, an der 
der Code nach einer eventuellen Ver- 
schiebung beginnen sollte, sonst stimmt 
L1 mit LO überein. 

— L2 gibt den niedrigsten vom Programm- 
code nicht mehr belegten Speicherplatz 
an. Hier beginnt also die Halde für dynami- 
sche Variablen. | 

-L3 bezeichnet die Startadresse des Pas- 
cal-Hauptprogrammes. Falls im Programm 
Funktionen oder Prozeduren vereinbart 
oder durch die Include-Option des Compi- 
lers (#1) eingebunden werden, sind L1 
und L3 verschieden voneinander. 

— L4 gibt die Anzahl der von globalen 
Variablen des Pascal-Programmes beleg- 
ten Bytes an, wobei vom System selbst 
definierte globale Variablen wie INPUT und 
OUTPUT sowie nicht näher dokumentierte 
globale Hilfsvariablen mitgezählt werden. 
Während der Compilierung erzeugt der 
Compiler weitere Marken je nach Bedarf, 
die alle die Form Ln haben, wobei n die 
Marken durchnumeriert. Hierdurch ist das 
Verbot für den Anwender begründet, eige- 
ne Marken in Maschinenprogrammieilen 
mit L beginnen zu lassen. 


4. Der Sprachumfang 


Wie UCSD- und Turbo-Pascal kennt Kyan- 
Pascal keine Funktionen und Prozeduren 
als formale Parameter bei Funktionen und 
Prozeduren. 

Alle im Standard-Pascal verlangten Wort- 
symbole sowie die Compilerdirektive 
FORWARD sind vorhanden, Bei den Spe- 
zialsymbolen müssen für die geschweiften 
Klammern die Ersatzdarstellungen „x“ 
und „*)“ benutzt werden, ab Version 1.1 
sind auch die geschweiften Klammern zu- 
lässig. PACK und UNPACK fehlen wie in 
UCSD-Pascal und Turbo-Pascal. Ob in je- 
dem Fall automatisch gepackt wird, ist 
nicht klar. Das Tutorial Manual schweigt 
sich hierüber aus. Daten vom Typ ARRAY 
.. OF CHAR werden jedenfalls gepackt 


dargestellt. 
Weiterhin fehlt wie in Turbo-Pascal die 
Standardprozedur PAGE, obwohl das 


Handbuch auf sie verweist; sie soll später 
einmal eingebaut werden. 

Soweit ich feststellen konnte, arbeiten die 
Funktionen und Prozeduren zur Dateiver- 
waltung ordnungsgemäß. Die nicht zum 
Standard-Pascal gehörende Prozedur 
CLOSE ist nicht realisiert; sie ist hier auch 
unnötig, da bei jedem Aufruf von RESET 
oder REWRITE eventuell betroffene offene 
Dateien automatisch geschlossen werden. 
Löschen von Dateien ist so nicht möglich. 
Als Erweiterung ist die Prozedur SEEK 
eingebaut. 

Mittels der Erweiterung CHAIN läßtsich an 
ein Pascal-Programm ein weiteres Pascal- 
Programm oder eine andere ProDOS-Sy- 
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stemdatei anketten, wobei sich Kyan-Pas- 
cal-Programme Variablen nicht nur über 
Dateien übergeben können, sondern auch 
wie in Turbo-Pascal dadurch, daß die ge- 
meinsamen Variablen zu Beginn aller be- 
teiligten Progamme in gleicher Reihenfol- 
ge und mit gleichen Datentypen lückenlos 
vereinbart werden; andere Bezeichner 
dürfen vorkommen. 

Die Verwaltung der Halde (Heap) erfolgt 
durch die Standardprozeduren NEW und 
DISPOSE, die auf den ersten Blick auch 
ordnungsgemäß arbeiten und auf der Hal- 
de eine lineare, verkettete Liste anlegen. 
NEW weist dynamischen Variablen Spei- 
cherplatz auf der Halde zu, der von DIS- 
POSE dem System auch korrekt zurück- 
gegeben wird, jedoch wurden bei meinen 
Tests in beiden zur Zeit vorliegenden Ver- 
sionen des Kyan-Pascal für jede dynami- 
sche Variable unabhängig vom itatsächli- 
chen Bedarf 435 Bytes reserviert, weshalb 
die Haldenverwaltung ernsthaften Ansprü- 
chen bislang nicht genügt. Da sich mit der 
Erweiterung ASSIGN (Zeiger:POINTER; 
Stelle:INTEGER) Zeiger auf vom Program- 
mierer definierte Speicherplätze richten 
lassen, kann man sich hier mit einer eige- 
nen Verwaltung der Halde behelfen, aber 
dies ist nicht Sinn der Sache. 

Bei Verbunden (RECORDS) darf im Ge- 
gensatz zu Standard-Pascal der Bezeich- 
ner im Variantenteil nicht fehlen. Ein Kon- 
strukt der Form „... CASE BOOLEAN OF 
TRUE: (Feldliste); FALSE: (Feldliste) ...“ 
ist also nicht möglich. Weiterhin werden 
boolesche und selbstdefinierte skalare Se- 
lektoren nicht akzeptiert, sondern nach 
meinen Tests nur solche vom Typ INTE- 
GER oder CHAR. Eine wesentliche Ein- 
schränkung ist hierdurch allerdings nicht 


gegeben. Schwerer wiegt da schon, daß 
weder unter Version 1.0 noch 1.1 die 


WITH-Anweisung funktioniert; der Compi- 
ler stürzt hier in den ÄApple-Monitor ab. 


GENAU 


Program Genau; 
{Test auf Rundungsungenauigkeiten} 
var x, y : real; 

1 : integer,; 


y = 98.81; 
writeln {chr(7)); 
while x <> GB do 
begin 
xı=xXx-yY 
write (x:29:19); 
if x < -9.1 then 
repeat write (chr(7)) until false 
end; 
repeat write (chr{7)}; 
for i:=1 to 1998 de [Pause] 
until false 
end, 


Der Datentyp STRING ist anders als in 
Turbo-Pascal und UCSD-Pascal nicht ein- 
gebaut, sondern muß vom Programmierer 
wie im Standard-Pascal beispielsweise als 
CONST MaxString = 40; 

TYPE String = ARRAY [1..MaxString] OF 
CHAR; 

definiert werden, jedoch arbeiten READ, 
READLN, WRITE, WRITELN klaglos mit 
irgendwelchen Zeichenketten, ohne eine 
Laufanweisung zu verlangen. 

In einigen Textdateien der System-Disket- 
te stehen für die Verarbeitung des so defi- 
nierten Datentyps String die Prozeduren 
bzw. Funktionen LENGTH zur Bestim- 
mung der Länge eines Strings, CONCAT 
zur Verkettung von Strings, INDEX zum 
Auffinden der Position eines Strings inner- 
halb eines anderen Strings (entspricht der 
POS-Funktion des UCSD-Pascal) und 
SUBSTRING, um Teilstrings aus einem 
String herauszuziehen (entspricht der 
UCSD-Prozedur COPY) zur Verfügung. 
Mit Hilfe einer weiteren Textdatei, die bei- 
spielsweise durch die Include-Anweisung 
des Compilers „#I HIRES.I#" in ein Pro- 
gramm eingebunden werden kann, sind 
für die hochauflösende Grafik die Proze- 
duren HGR zum Einschalten und Löschen 
der Grafikseite 1, TX zum Einschalten der 
Texiseite, PLOT zum Zeichnen eines 
Punktes auf der Grafikseite und DRAW 
zum Zeichnen von Strecken auf der Gra- 
fikseite verfügbar. 


5. Laufzeiten 


Bei der Bestimmung der Laufzeiten wur- 
den Kyan-Pascal 1.1, UCSD-Pascal 1.2 
und Turbo-Pascal 1.0 mit einer normalen 
ZS0A-Karte benutzt. Die Ergebnisse fin- 
den Sie in Tabelle 1. Weiterhin habe ich 
einige Untersuchungen mit der Acker- 
mannfunktion (siehe Programm ACKER- 


ACKERMANN 


MANN) durchgeführt, deren Ergebnisse 
sich in Tabelle 2 finden. 

Bei der Wertung sollte man jedoch noch 
die jeweils erreichbare Rechengenauigkeit 
berücksichtigen. 


6. Fazit 


Ich selbst programmiere bislang nahezu 
ausschließlich in 6502-Assembler und in 
Pascal. Deshalb bin ich sehr froh, endlich 
ein Pascal-System für den Apple Il verfüg- 
bar zu haben, das Maschinencode für den 
eigentlichen Prozessor des Apple erzeugt 
und außerdem recht preiswert ist. Beste- 
chend elegant ist außerdem die Einbin- 
dung von Maschinencode in ein Pascal- 
Programm, die für die recht langen Compi- 
lierungszeiten entschädigen mag. Bislang 
entdeckte Fehler des Systems betreffen 
raffiniertere Programmiertechniken mit 
Zeigern und Verbundtypen und lassen 
sich mit Mitteln des Systems umgehen, 
auf keinen Fall mindern sie den Wert des 
Systems für Pascal-Neulinge. 
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Turbo Pascal Language Manual, Borland 
International, 1984 

Kyan Pascal, A Programming Language, 
Tutorial Manual, 1985 


var wert, m, n : integer; 


Program Ackermann; 


function Acker (m, n : integer): integer; 
var a : integer; 
begin 
if (m<dß) or (n<ß) then 
begin writeln (chr(7)); 


writeln ('Fehler'); readln 
end; 
(write onen) 


ifmfß then a := ntl 
else 


begin 
if n=ö then a := acker (n-l,l) 
else a := acker (m-l,acker (m,n-l}}; 
end; 
acker := a 


end {acker}; 
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begin 
repeat 
writeln ('Es wird die Ackermannfunktion berechnet'); 
writeln ('Geben Sie m und n ein'); 
readln (m,n); 
write (chr(7)); 
Wert := Acker (m,n); 
write (chr(7)); 
writeln ('A(',m,',',n,') = ',wert) 
until false 
end. 












P3 








Program P3; 





{8®-Zeichenkarte einschalten} 
{Diese Prozedur simuliert PR#s} 























procedure pr (slot: integer); 
begin 

#A {Anfang 65®2-Assembler} 
Ssıa T 

LDY #3 

LDA (SP),Y 

JSR $FE95 ;OUTPORT 

LDX T 

#+ {Ende 65ß@2-Assembler} 

end; 


begin 

pr (3); 

write ('Hier muss sie sein.'); 
readln 

end. 


Tabelle 1: Laufzeiten 


Zeiten in ms 
Kyan-Pascal UCSD-Pascal Turbo-Pascal 


Operation 


Berechnung der Wurzel 






einer ganzen Zahl 119..129 39. .44 21. .34 
Division co := a/b 11.8 4.25 5.04 
Multiplikation ganzer 

Zahlen 0.790 ig d.314..0.544 
Addition ganzer Zahlen 9.194 D.344 0.044 
Mult. reeller Zahlen 4.3..4.9 Br n etwa 3.® 
Add. reeller Zahlen 1.89..1.86 ee 0.51..9.66 






Leere FOR-Schleife, 
ein Durchgang 






ß.21 d.®6 






Tabelle 2: Ackermannfunktion: 










Kyan-Pascal UCSD-Pascal Turbo-Pascal 









Ackermann(3,2) 9.885 1.8 s 0.6 s 

Ackermann(2,22) 1.4 s 3.4 s 1.18 

Ackermann(2,23) in 1,5 s be- 3.6 s 1.0 © 
rechnet, Absturz 

Ackermann(3,4) hängt 29.2 s 8.65 

Ackermann(3,5) hängt Fehler berechnet 





Tabelle 3: Wichtige Entstehungsdaten 







ED Version 1.® 23.04.1985 (49-Z/Z-Editor) 
PC Version 1. 14.04.1985 (Pascal-Compiler) 
LIB Version 1.® 07.04.1985 (Library) 















ED Version 1.1 16.06.1985 
E8® Version 1.1 26.06.1985 (80-Z/Z-Editor) 
PC Version 1.1 19.06.1985 

Version 1.1 <NO DATE> 










ED Version 1.2 06.07.1985 
E8® Version 1.2 06.07.1985 
Ze Version 1.2 27.07.1985 
LIB Version 1.2 26.06.1985 
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Preiswerte Begleitdisketten 






Begleitdiskette 
zu „ProDOS für Aufsteiger“ 
Band 1 











Bd. 1: DM 28,-; Bd. 2: DM 28, 


Begleitdiskette 
zu „Apple Assembler“ 





DM 23,— 





Begleitdiskette 
zu „Apple DOS 3.3" 





DM 23,- (Neue Diskette für 
3. Aufl.) 


Hüthig Software Service 
Postfach 102869 - 6900 Heidelberg 














IMB-PC/XT-COMPATIBLE COMPUTER + ZUBEHÖR 
Mainboard XT f. 16bit + 256K-RAM + 8 Slots, Leerkarte 
Mainboard XT-640 K (on Bord) f. 16 Bit + 8 Stots Leerkarte 
Disk Controller leer (f. 2x360 KB-Drives) 
Disk Controller leer (f. 4 x 360KB-Drives) 
Monochrome Graph. + par. Printer Leerkarte (Hercules comp.) 
Color R&B + Video Graphik Leerkarte 

Parallel Printer Leerkarte 

Er GT DT} 

Multifunktions Leerkarte (Printer, Ser, Game Uhr gepuffert) 

Disk-Muliti /O Leerkarte, (f. 3x360 K-Drive, 2xRS 232 1xpar. Printer 

Int., Game/Joystick-Port, Real Time Clock/Kalender gepuff.) 

384 K-Multifunktions Leerkarte, (1xpar. Printer Int., Game/Joystiek 

Port, Real/time Clock/Kalender gepuffert) 

Prototype/Lochraster Leerkarte, durchkontaktiert 

Mainboard XT-256 f. 16 bit CPU, OK (bis 256K-an board, oder 

640 K mit Addr. auf Karte aufr.) + Boot-ROM + 8 Slots best. + geprüft 359,—— 
Mainboard XT-256 w.o. jedoch 256 K - vollbest. und geprüft 439,-—— 
Mainboard XT-640 f. 16 bit CPU, OK (bis 640 K-on board aufr.) 389,—— 
Mainboard XT-640 w.o. jedoch 256 K-RAM best. + gepr. 

Mainborard XT-640 w.o. jedoch 640 K - vollbest. und geprüft 
64KB-RAM-Chip-Aufrüstsatz (9 Stück) einzeln geprüft! 

256 KB-RAM-Chip-Aufrüstung (9 Stück) einzeln geprüft 

Disk-Controller gepr. (f. 2x360 KB Drives) (Extra Kabel = 39,——) 

ET ET DELUENEBTT-OT SEE Ri) 
Monochrome Karte geprüft 

Monochrome Graph. + par. Printer Karte gepr. (Hercules comp.) 

Color RGB + Video Graphikkarte gepr. 

Parallel Printer-Karte gepr. o. Kabel (Extra Kabel =49,-) 

512K-RAM-Karte gepr. (OKB) 

384K-Multifunktionskarte, RS 232, par. Printer, Interf. Game/Joystick Port, 
Real Time Clock gepuff., OK + RAM-Disk/Spooler/Uhr Softw. K P1Rn 
Multifunktionskarte (Par. + Ser. + Uhr gepuffert) gepr. 289,-—— 
Disk Multi 1/O Karte (f. 2x360 K-Drive, 2xRS 232, 1x par. Printer Int., 
Game/Joystick Port, Real Time Clock/Kalender gepuff.) 397,—— 
Profi-Funktionstastatur dt. oder ASCII + 15er Block ab 215,—— 
135W/150W-Netzteil mit eingebautem Ventilator, Kurzschlußf. 219,--/279,-— 
360KB-Diskdrive Slimline (Track Access Time <2 m S) 319,—— 
PC/XT - KOMPLETT-SYSTEME EINGEBAUT UND GEPRÜFT 

EI TREE VENEN 

IBM-look-like Met.-Gehäuse +Profi-Fkt. Tast.+135 W-Netzt. gepr. 999,—— 
XT-256, w.o.+ Contr.+360KBDrive+Color RGB+Vid. Graphic-Karte 1627,—— 
XT-256, w.o. jedoch statt Color mit Monochrome Karte 

XT-256, w.o. jedoch mit.Monochrome-Graphic-Printer-Karte 

PC 10-Commodore 256 K+2 Laufwerke + Monitor + dt. Tast 

640 K-Speichererweiterungs-Set für PC 10 

APPLE-BUS COMPUTERPLATINEN + PERIPHERIE 

Motherboard Il 48K leer, durchkont. mit Lötstopplack 

Motherboard Il w.o. jedoch 64 K leer 

M-board Il 48K, gesockelt, vollbest. + gepr. 

Motherboard Il 64K gesockelt, vollbest.+gepr. 

M-board II 64K + Z80 CPU, gesockelt, v. best. + gepr. 

M-board Ile 64K vollbestückt + gepr. 

APOLLO Il Kunststoff-Leergehäuse 

APOLLO Il Gehäuse incl. Funkt.-Tast, 

Superstarkes Netzteil — Kurzschlußfest 

Leerplatine: 16K-RAM, Z80/CPU-, Controller DOS 3.3, 
Parallel-Druckerkarte, Ser. Int. V24, 802/24Z-Karte, PAL-Karte je 
Entwicklungslochraster-Leerplatine durchkontaktiert 

16K-Speicher-Karte geprüft 

APPLE orig. 16K-Language Karte gepr. 

Z-80 CPU-Karte geprüft 

Controller DOS 3.3-Karte geprüft 

Auto-Controller DOS 3.2/3.3-Karte gepr. 

Erphi AFDC 2 Controller + Autopatch Softw. + Handbuch 
Parallel-Drucker-Karte geprüft 

Par.-Drucker-Grappler comp. Leerplatine 

Par.-Drucker Karte-Grappler comp. geprüft 

8bit par. Grappler-Int. + 64K-Buffer + Kabel.gepr. 

Seriell-Interface-Karte V24 geprüft 

Super-Seriell Leerkarte 

Super-Seriell-Interface Karte gepr. 

80-Zeichen/24-Zeilen-Karte geprüft 

802/24Z-Karte + Softswitch-Schalter Leerplatine 

802/24Z-Karte + Softswitch-Schalter, gest. Scharf geprüft 
802/24Z-Softwitch Karte gepr. für Ile 

802/242 +64K-Ram+Softsw. Leerkarte f. Ile 

802/24Z+64K-Ram +Softsw.-Karte best. +gepr. f. Ile 

IEEE-488 Int. Karte gepr. 

PAL-Modulator/Color-Karte geprüft 

RGB-Color Karte gepr. 

128K-Speicher-Leerkarte 

128K-Speicher-Leerkarte + Software + Manual 

128K-Speicher-Karte + Software geprüft+Manual 

Pl: STE TAT} 

256K-Speicher Leerkarte+Software-+Manual 

256K-Speicher-Karte + Software geprüft+Manual 

Maus incl. Software 

EPROM-Burner 2716/32/64) geprüft 

Gyr WETCHjelgii 

Clock Karte geprüft 

Speech Karte geprüft 

Wild Karte geprüft 


. AD/DA-8Bit Karte gepr. 


Modem Euronorm-Karte gepr. + Software + Man. 
UHF/TV-Modulator universell 

Lüfter anclipsbar (220 V) 

Dataphon s21d Akustikkoppler-FTZ mit RS 232/V24 Anschl. 


APOLLO//(48K) + UHF-Mod. + Gr/Kl vollbest. + gepr. + F--T. 
APOLLO//(48K) + Disk II F + Contr. + 12”-Monitor 

APOLLO//A (48K) + Gr/Kl + 15er-Tastatur vollbest. + gepr. + F.--T. 
APOLLO//A (48K) + Disk II F + Contr. + 12”-Mon. 

APOLLO// ASKF (48K) vollbest. + gepr. Sep. Keyboard + Gr/Kl + 
'Ser-Block mit Funkt.-Tasten im „IBM-look like" Gehäuse 
APOLLO// ASKF (48K) w.o. + Disk II F + Contr 

Apollo Il ASFK (48K) w.o.+2xDisk II-F+Contr.+12'" Mon. 
Aufpreis f.o. Systeme von 48K zu 64K 

Aufpreis von 48K zu 64K+Z80 CPU 

Apollo Ile (64K) PAL vollbest. und geprüft 

Apollo Ile (128K) +802/24Z-Karte geprüft 

Apollo Ile ASKF 

Apollo Ile (64K) +Disk II F+12” Monitor 
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Epson-Duodisk Il F-Slimline 2x143 KB mit Geh. + Kabel 
Disk//+Contr. + Kabel DOS 3.3 (Siemens) im Geh. 
Disk//(Siemens) im Geh. + Kabel 

Disk//F + Contr. + Kab. DOS 3.3 (1/2 Höhe) im Geh. 

Disk//F (1/2 Höhe) i. Geh. + Kabel (Trak Access <2mS) 
Erphi DuoDisk 1,2 MByte incl. Netzteil + Erpli; AFPC 2-Contr. 


APPLESOFT + Turorial + Reference Manual engl. 
APPLE-DOS 3.3 Manual engl 

APPLE-DOS 3.3 Hb. dt. 

APPLE-Pascal Reference + Operating Manual engl. 
APPLE-Pascal Reference Hb. dt 

APPLE-Pascal Language Hb. dt 

APPLE-Fortran Manual engl 

CP/M-Softcard Vol. | + Il, Manual engl 

APPLE Il+Ile-Anwenderhandbuch deutsch (te-wi) 


Z80 Karte gepr. f. APPLE//c + RAM-Disk-Software + Hb. 

Macintosh System (128K) 

Macintosh System (512K) 

Macintosh Umrüstung von 128K auf 512K 

SANYO MSX-Computer MPL 64 dt. Tastatur 

ELLE ET Sc Mc) 

EPSON FX 85F/T+, 8bit/parallel 160 Z/S. NLQ + IBM Komp. 

EPSON FX 105+, 8bit/parallel 15” sonst w.o. 

EPSON Traktoraufsatz für FX 80 +FY 85 

APPLE/EPSON-Drucker Graphic-Interface + Kabel 

MX 80/82, FX/RX 80 Spezialfarbband-Kassette 

BROTHER-Typenraddr. HR 15XL 8bit/par. neuestes Mod 
>TAR SG10, NLQ- + IBM-Zeichensatz, 8bit/par. 


Wir führen verschiedene Monitore von Zenith, Phillips und Sanyo mit Video - | 
TTL (IBM Komp.) oder Coloreingang. 
Disketten in Box + Aufkleber I. Wahl, 10er Pack/100er Pack./ Stückpreis: 
5 :'Verstärkt BASF 3M FuUJI DATA NEUTRAL 
SCOTCH MAGNE- 
TICS 
1X, SS/SD 3,69/ 3,49 2,86/2,76 
1D, SS/DD 3,89/ 3,69 4,88/ 4,58 4,27/ 3,97 3,96/3,76 2,75/2,65 
2D. DS/DD 5,69/ 5,49 6,38/ 5,88 5,87/ 5,47 4,76/4,46 3,85/3,65 
1D/96TPi 5,59/ 5,39 7,18/ 6,68 
2D/96TPi 7,09/ 6,99 7,88/ 7,48 7,87/ 7,67 
2HD/1.2MB 13,49/12,69 12,87/12,57 
1X. Hard 4,29/ 4,19 


IX.SS/SD 4,49/ 4,39 6,68/ 6,48 6,97/ 6,67 Das 

1D, SS/DD 4,79/ 4,59 8,58/ 8,28 - 

2D,DS/DD 7,09/ 6,89 9,88/ 9,58 10,17/ 9,77 sind 

1X, Hard 4,49/ 4,39 6,68/ 6,48 = 

3, Preise! 

Einseitig 10,99/ 9,99 10,08/ 9,88 7,67/ 7,47 

Zweiseitig 14,99/14,29 15,98/15,18 
3M-Scotch 5'/" Flüssig-Reinigungsset (2 Disk.) zweiseitig 48,95 
514" Disketten-Archivbox für 10 Disks (1 St./10 St.) 4,75/43,50 
51/4” Disk-Karteikasten Kunststoff (ca. 80 Disk) 26,50 
514” Disk-Karteikasten Kunststoff (ca. 80 Disk) Rauchglas 39,95 
51/4” Disk-K.K.Rauchglas, abschließb. (f. ca. 80-100 Disks) 47,50 
2000 Bl. Tabpapier (24 cm x 12” einf.) weiß oder grün/weiß perf. LEE 
4000 Et.-Aufkl. doppelr. (107 x 36 mm auf 240 x 12” perf. Trägerp.) 66,50 
4000 Etik.-Aufkl. einreih. (107 x 36 mm auf 125 x 12” perf. Träg.) 65,—- 

OSZILLOSCOPE HAMEG ab Lager 

Beı Vorauszahlung frei Empfangsstation unversichert in der BRD, ausgenom- 
men Papier und Etiketten, sonst N.N. + V.S. ab DM 30,-- Preise incl. MwSt 
Öffnungszeiten: Mo, Di, Do, Fr v. 10-18 h, Mi u. Sa v. 10-14 h, la Sa v. 10-18 h 
Telef. Best.: Mo, Di, Do, Fr von 10-19 h, Mi u. Sa wie Öffnungszeiten 
GEWÄHRLEISTUNG: 6 Monate, auf alle bei uns gekauften Geräte, durch 
unsere eigene Service-Werkstatt. 
REPARATUREN an Apple + Compatible Geräte + Zubehör führt unser 
Spezialistenteam garantiert zuverlässig + besonders kostengünstig aus. 
Sprechen sie mit uns. Kostenvorschlag auf Wunsch! 


R, electronic a 


Telex: 0772642 aaa-d 
Habsburgerstraße 134 
7800 FREIBURG, Tel (0761) 276864 
Bauelemente - Bausatze - uP's 
Meßgerate - Zubehor - Fachliteratur 
Fachgeschäft fur Elektronık + Mikrocomputer 











Der Apple Illals 
Werkzeug fur den 
Betriebswirt 








Teil 1: Das Simplex-Verfahren 
in der Controllerpraxis 


Controller sind in der Regel keine As- 
semblerprogrammierer. Sie bedienen 
sich meist einer Hochsprache, vor- 
nehmlich eines BASIC-Dialektes (z.B. 
Applesoft-BASIC). Der Verfasser erläu- 
tert zuerst an einem kleinen Beispiel 
eine Aufgabe aus der Controllerpraxis 
und zeigt dann Möglichkeiten auf, die 
dem Controller die Arbeit erleichtern. 


1. Aufgaben des Controllers 


Die Position des Unternehmenscontrollers 
hat in den letzten Jahren eine beachtliche 
Aufwertung erfahren. Bei der Controller- 
funktion handelt es sich „um einen Lot- 
sen- oder Navigationsdienst zum Ziel Ge- 
winn. Der Controller ist also ein wirtschaft- 
licher Ratgeber des Managements. Seine 
Aufgabe besteht in der fachlichen Inter- 
pretation der Zahlen und betriebswirt- 
schaftlichen Zusammenhänge sowie in 
der Überzeugung und Motivation für die in 
den Zahlen liegenden Konsequenzen.” 
(1) 

Mit dem gewachsenen Einfluß ist gleich- 
zeitig eine Steigerung der Arbeitsbela- 
stung verbunden. Deshalb haben sich im- 
mer mehr Controller einen Personalcom- 
puter angeschafft, von dem sie In erster 
Linie Robustheit, einfache Handhabung, 
Ausbaufähigkeit und Vielseitigkeit in der 
Anwendung erwarten. Der Apple Il hat seit 
seiner Markteinführung seinen außeror- 
dentlich hohen Nutzwert in der Controller- 
praxis unter Beweis gestellt. 

Das folgende kleine Beispiel, das ich aus 
(2) entnommen und aufbereitet habe, soll 
dem Außenstehenden einen Einblick in 
die Controllerpraxis vermitteln und den 
Nutzen einer Verbindung moderner Re- 
chenverfahren und Computeranwendung 
für das Unternehmen verdeutlichen. 
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2. Ein fiktives Simplex-Beispiel 


Der Controller Kraus hat von der Ge- 
schäftsleitung der Schmalhans GmbH, 
Düsseldorf, den Auftrag erhalten, einen 
Vorschlag für eine rasche Gewinnverbes- 
serung auszuarbeiten. 

Die Ermittlungen von Kraus ergeben, daß 
die Schmalhans GmbH lediglich 4 Produk- 
te (P1-P4) auf 4 Fertigungsstellen (A-D) 
herstellt und verkauft. Die Situation der 
letzten Periode stellt sich dar wie in Abb. 1 
wiedergegeben. 

Das Unternehmen erzielte somit einen 
Gesamtdeckungsbeitrag in Höhe von 
DM 1.354.705 in der letzten Periode. Der 
Deckungsbeitrag ist die Differenz zwi- 
schen Nettoumsatz und variablen Kosten 
und soll die Fixkosten, die Steuern und 
den erhofften Gewinn abdecken. 

Bei der Datensichtung hat der Controller 
Kraus herausgefunden, daß die Markt- 
chancen der Schmalhans GmbH beträcht- 
lich größer sind, als der Geschäftsleitung 
bisher bekannt war. So halten die Verkäu- 
fer folgende Absatzhöchstmengen je 
Produkt für realisierbar: 

Pi max. 3500 Stück, 

P2 max. 9000 Stück, 

P3 max. 11000 Stück, 

P4 max. 2600 Stück. 


In Verbindung mit den nicht voli ausgela- 
steten Fertigungsstellen A-D eröffnet sich 
hier ein Ausweg für die Schmalhans 
GmbH. 

Kraus beschließt, das deckungsbeitrags- 
optimale Produktmix mittels der Sim- 
plex-Methode (lineare Programmierung) 
zu bestimmen. Ausgehend von den Daten 
der Vorperiode und den gerade ermittelten 
Absatzhöchstmengen, stellt Kraus sein 
Simplex-Tableau auf und lädt sein Opti- 
mierungsprogramm in den Apple II+. Zu- 
erst dimensioniert er das Feld IB (9) und 
dann die Matrix A (9,13) und tippt dann die 
Daten ein. Die Matrix A (9,13) weist dann 





von Dipl.-Betriebswirt Willy Holtikamp 


das in Abb. 2 dargestellte Bild im Speicher 
auf (sinnbildlich). 

Die ersten 4 Zeilen beinhalten die Koeffi- 
zienten der Fertigungsstellen A-D und ge- 
ben den Zeitverbrauch je Produkt in Minu- 
ten an. Die Zeilen 5-8 berücksichtigen die 
Absatzhöchstgrenzen je Produkt wie oben 
besprochen. In der letzten Zeile sind die 
Deckungsbeiträge je Produkt vermerkt. 
Kurz nachdem der Controller Kraus 
„RUN“ getippt hat, liegt die optimale Lö- 
sung vor. Abb. 3 zeigt den Computer- 
Output, während Abb. 4 die Lösung in 
Tabellenform wiedergibt. 

Danach sollten von P1 insgesamt 2780 
Stück, von P2 insgesamt 4885 Stück, von 
P3 11000 Stück und von P4 insgesamt 
2315 Stück gefertigt und verkauft werden. 
Dies würde den Gesamtdeckungsbeitrag 
von DM 1.354.705 auf immerhin DM 
1.469.808 steigern (= 8,5% Steigerung). 
Aus der Tabelle ist weiterhin abzulesen, 
daß die Fertigungsstellen A, B, D voll aus- 
gelastet sind. Ein Vergleich der zu produ- 
zierenden Mengen mit den Absatzhöchst- 
grenzen zeigt, daß keine Absatzrestriktion 
verletzt wurde. Bei der Datenermittlung 
stellte Controller Kraus fest, daß dem spe- 
ziellen Deckungsbeitrag von Produkt P1, 
der später mit DM 459.895 errechnet wur- 
de, ein spezieller Fixkostenbetrag in Hö- 
he von DM 506.000 gegenüberzustellen 
ist. Daraus resultiert ein negativer Rest- 
deckungsbeitrag für das Produkt P1. Es ist 
also bald aus dem Produktionsprogramm 
zu nehmen. „Für die Abbaurechnung und 
die Abbauentscheidung kann die ‚Sim- 
plexmethode‘ wiederum wertvolle Infor- 
mationen liefern“ (2b). Hierbei gilt folgen- 
de Überlegung: Wenn die Summe der ent- 
fallenden speziellen, d.h. langfristig ab- 
baubaren Fixkosten — hier sind das DM 
506.000 — höher ist als die Summe fortfal- 
lender Deckungsbeiträge, dann würde die 
Abbauentscheidung das Uniernehmens- 
ergebnis verbessern. 
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Kraus stellt nun ein neues Simplex-Sche- 
ma auf und läßt dabei Produkt Pi und die 
Fertigungsstelle A außer acht. Das Ergeb- 
nis kann aus der Abb. 5 abgelesen 
werden. 


Der Gesamtdeckungsbeitrag ist von DM 
1.469.808 auf 1.049.942 gesunken, also 
um DM 419.866. Zieht man nun von den 
abbaubaren speziellen Fixkosten in Höhe 
von DM 506.000 diese wegfallenden Dek- 
kungsbeiträge von DM 419.866 ab, so er- 
hält man die Summe DM 86.134, die die 
Ergebnisverbesserung der Schmalhans 
GmbH darstellt. 


Dieses kleine Beispiel sollte zeigen, daß 
derjenige Unternehmer im Vorteil ist, der 
moderne Rechenverfahren und Computer 
benutzt. Immerhin kann die Schmalhans 
GmbH DM 1.469.808 - DM 1.354.705 = 
DM 115.103 in einem Monat mehr verdie- 
nen, ohne sich dabei groß anstrengen zu 
müssen. Multipliziert man diese Zahl mit 
11 Arbeitsmonaten, so erhält man eine Er- 
gebnisverbesserung von DM 1.266.133. 


3. Verbesserte Simplex- 
Berechnungen 


Im Normalfall sind die zu bearbeitenden 
Matrizen beträchtlich größer als soeben 
dargestellt. Mit zunehmender Mairixgröße 
steigt der Rechenaufwand und damit auch 
der Zeitbedarf, und zwar überproportional 
zur Matrixausdehnung. So sind z.B. Mehr- 
perioden-Optimierungsmodelle mit 100 
Zeilen zu je 120 Spalten keine Seltenheit. 
Und wenn die Frage geklärt werden muß, 
welche Produkte in Werk 1 und welche 
Produkte in Werk 2 am kostengünstigsten 
gefertigt werden können, dann wird die 
Bearbeitung noch umfangreicherer Matri- 
zen notwendig. 


Bei derartigen Aufgabenstellungen treten 
dann schnell die konzeptionsbedingten 
Nachteile des Apple II+ zutage, nämlich 
lediglich 64K RAM und eine durchschnittli- 
che Rechengeschwindigkeit, gemessen 
an neueren Produkten der Computerindu- 
strie, 


Diese Feststellung bedeutet jedoch nicht 
zwangsläufig, daß der Apple-Benutzer mit 
seinen Problemen allein gelassen wird 
und deshalb zurückstecken muß. Er solite 
die nachstehend aufgeführten Hinweise 
berücksichtigen. Diese Tips lassen sich 
wie folgt gruppieren: 


1. Hardware-Verbesserung anschaffen 
(Saturn-128K-Karte und Accelerator- 
Karte); 


2.  Software-Unterstützung anschaffen 
(Cruncher, Compiler und EMBER); 
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PRAXIS 





(4) D 
Min/St. Min 


303 9,412 1839 
5900 9,092 46 
3748 B,064 649 
298 5,918 11836 


13966 


16999 


(4) D 
Min/St. Min 


336 9,412 1145 
5764 9,092 449 
4114 9,864 74 

345 5,918 13788 


EEE. m: m mE MEERE man mm am BEE DEE Da Hu NEE HE m m Te m m 


15999 
16989 
1 


33,939 


Abb. 1 
eb): (2) (3) (4) A (4) B (4) C 
Stückz. DM/St. Total Min/St. Min Min/St. Min Min/St, Min 
1 2500 165,43 413575 8,058 28145 9,188 270 9,121 
2 5anH 67,88 33941d 9,008 Ö 1,458 729% 1,188 
3 19099 31,62 316298 9,000 B 9,433 4330 9,374 
4 2000 142,76 285520 9,006 DB 8,136 272 8,149 
(5): 19599 135475 29145 12162 1B241 
Kapazität: 22400 12568 1199 
Schlupf: (Leerzeiten in Minuten) 2235 358 759 
Auslastung in %: 89,93 97 ,3® 93,19 
(1) = Produktbezeichnung, (2) = Ist-Absatz, (3) = Deckungsbeitrag, 
(4) = Fertigungsstelle, (5) = Summe 
Abb. 2 
22409 8,058 Ö d d ı 888 898 8 9 
12588 A,168 1,4558 9,43 6,123 dB 1289898 88 8 
11809 B,121 1188 9,374 14 BB 8 ı8 BB BG 
16909 8,112 8,092 B,dea 5,98 pP BL BB OD 
3500 1 d d ß BB ı8B8 BD 
9999 Ö ı 9 B BB B ı BG 
11B88 a d 1 a BB BB OB 1 9 
2609 Ö d Bd 1 BB OL 
B 165,43 67,82 31,62 142,76 BB BB BB BD 
Abb. 3 
SCHMALHANS GMEH 
ERMITTLUNG DER OPTIMALEN LOESUNG 
NACH GERH. NIEMEYER 
OPTIMUM NACH 4 DURCHLARUFEN GEFUNDEN: 
BASISVARIABLE WERT: 
1 — 2779.85 
2 = A8B4.71 
; = 449.71 
A — 2315.19 
9 = 728.15 
16 = 4115.29 
3 = 11899 .98 
12 = 284.81 
DER GESAMTDECKUNGSBEITRAG BETRAEGT 1469488.92 DM! 
Abb. 4 
Optimallösung-Plan 1 (gerundet) 
(1) (2) (3) (4) A (4) B (4) C 
Stückz. DM/St. Total Min/St. Min Min/St. Min Min/St, Min 
1 2780 165,43 459895 8,058 22481 9,198 308 8,121 
2 4885 67,88 331604 9,000 d 1,458 7122 1,189 
3  1189# 31,62 347828 9,B0# d 0,433 4763 9,374 
4 2315 142,76 339489 9,009 B 8,136 315 9,149 
(5): 29989 1469888 22401 12586 19569 
Kapazität: 22489 12580 11888 
Schlupf: (Leerzeiten in Minuten) -1 e 759 
Auslastung in %: 189,81 100.09 96,99 
(1) = Produktbezeichnung, {2) = Planabsatz, (3) = Deckungsbeitrag, 
(4) = Fertigungsstelle, (5) = Summe 
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3. Programme schneller machen (opti- 
mieren). 


3.1. Saturn- und Accelerator-Karte 


Die Saturn-128K-Karte besteht aus 8 Bän- 
ken mit je 16K und kann sowohl als Pseu- 
do-Disk als auch im gemischten Dienst 
eingesetzt werden. Das bedeutet, daß 
Programmteile und/oder Felder (Arrays) in 
das Extended RAM ausgelagert und bei 
Bedarf wieder zurückgeholt werden kön- 
nen, während die Pseudo-Disk-Funktion 
nicht beeinträchtigt wird. Leider ist das 
Handbuch (3) für „Applefreaks" geschrie- 
ben, so daß der Controller eine Weile be- 
nötigen wird, ehe er diese vielen Möglich- 
keiten richtig ausnutzen kann. 

Am einfachsten ist die Anwendung der 
128K-Karte in Verbindung mit Visicalc, 
weil hier nur eine spezielle Disk gebootet 
und einmalig angepaßt werden muß. Die 
Accelerator-Karte wurde bereits im Peeker 
(Heft 1/84, S. 19) beschrieben und ihre 
außerordentliche Wirkung wird im Verlaufe 
dieses Berichtes noch sichtbar werden. 
(Redaktioneller Hinweis: Der Autor be- 
nutzt einen Apple II+ mit einer Accelerator 
II+; der erwähnte Testbericht bezog sich 
auf die Accelerator Ile.) 


3.2. EMBER-Software und Compiler 


Fachleute schlagen vor, möglichst viele 
Befehle in einer Zeile unterzubringen. Die- 
se Aufgabe erfüllt z.B. der Dakin5-Crun- 
cher (4) sehr gut. Die Bedienung ist ein- 
fach: Man bootet die Dakin5-Diskette und 
wählt aus einem Menü die 12 aus. Nach 
ca. 10 Sekunden erscheint die in Abb. 6 
wiedergegebene Anleitung auf dem Bild- 
schirm. 

Ich besitze sowohl den Hayden+-Compi- 
ler (5) als auch den Tasc-Compiler (6). 
Normalerweise benutze ich für meine Ar- 
beit den Hayden+, da er noch einfacher 
zu bedienen und vor allem sehr viel 
schneller ist, was die Vorbereitungszeit 
(Compiletime) und die Verarbeitungszeit 
(Runtime) angeht. 

So benötigt der Tasc-Compiler z.B. für 
eine Optimierungsaufgabe des Umfangs 
27 Zeilen und 47 Spalten mit einem BA- 
SIC-Programm des Autors Frazer (7) ins- 
gesamt 250 Sekunden Compiletime + 
195 Sekunden Runtime = 445 Sekunden 
Gesamtzeit bei Einsatz der Accelerator- 
Karte. Der Hayden + -Compiler benötigt 
dagegen nur 31 Sekunden an Compile- 
time und 102 Sekunden an Runtime = 133 
sekunden Gesamtzeit. Allerdings ist das 
vom Hayden+ erzeugte Binärprogramm 
erheblich länger als das des Tasc-Compi- 
lers. 
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Abb. 5 


Optimumlösung-Plan 2 (gerundet) 


(1) (2) (3) 
Stückz. DM/St, Total 


2 5973 67,88 344365 1,458 7396 1,188 5986 9,892 











3 11806 31,62 347828 ®,433 4763 #,374 4114 9,064 
A 2506 142,76 357757 8,136 341 8,149 373 5,918 
(5): 18579 1949942 12500 18474 | 
Kapazität: 12500 11998 
Schlupf: {Leerzeiten in Ninuken D 526 
Auslastung in %: 108,08 a 95,21 


= Produktbezeichnung, 
(4) = Fertigungsstelle, 


Abb. 6 


Min/St. Min 


(2) 
(5) 


*%* THE CRUNCHER #** 


(C) 1979 BY DAKINS CORPORATION 


(4) B (4) C 


| 





(aD 


Min/St. Min Min/St, Min 


467 
784 
14831 


16BB1 


16909 


-1 


inm.D1 


Planabsatz, (3) = Deckungsbeitrag, 


Summe 


l. LOAD THE PROGRAM TO BE COMPRESSED 


2. CALL 36361 TO RUN THE CRUNCHER 


3. SAVE THE COMPRESSED PROGRAM 


4. CALL 36482 TO RETURN TO PROGRAMMING 


AIDS 3.3 MENU 











sol 


204 
26l 
684 
1298 
1788 
1874 


Faktor 


4,54 
5,33 
9,6 
16,73 
12,84 


Abb. 7 
Block Autor Acc Compile Run 
(sec) (sec) 
1 Niemeyer optimiert ja 25 22 
Niemeyer ja 27 22 
Gillett ja 27 44 
Bui Ja 48 73 
Frazer ja Sl 1B2 
Poole ja St 75 
2 Niemeyer optimiert 25 5% 
Niemeyer zur 51 
Gillett 27 12% 
Bui 48 2S 
Frazer SL 321 
Poole 3 286 
3 Niemeyer optimiert ja 
Niemeyer ja 
Gillett Ja 
Bui ja 
Frazer Ja 
Poole ja 
| Niemeyer optimiert 
Niemeyer 
Gillett 
Bui 
Frazer 
Poole 
Abb. 8 
Autor Block Nr. 4 Block Nry 1 
(ohne Hilfsm.] (Acc. + Comp.} 
(sec) (sec) 
Niemeyer optimiert 204 47 
Niemeyer 261 49 
Gillett 684 Zi 
Bui 1298 2 
Frazer 1798 155 
Poole 1874 118 





m m 


17,83 
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EMBER (8) steht für „Extended Memory 
Interpreter“ und kann für den Apple Il, II+ 
und Ile verwendet werden, und zwar mit 
oder ohne Language Card. EMBER kann 
insgesamt 4 Megabytes verwalten. Laut 
Handbuch (9) kann der Anwender Felder 
(Arrays) dimensionieren, die bis zu 64K 
groß sind, so daß 

a) Integer-Arrays bis zu ca. 32.000 Ele- 
mente, 

b) Real-Arrays bis zu ca. 12.000 Elemente, 
c) String-Arrays bis zu ca. 16.000 Elemen- 
te umfassen dürfen. 

Dabei bleibt es dem Anwender überlas- 
sen, ob er die ganze 128K-Karte für EM- 
BER reservieren möchte (insgesamt 
166.397 Bytes Speichergröße) oder nur 
bestimmte Bänke. Definiert man nur 3 
Bänke und die Language Card für EMBER- 
Zwecke, so stehen insgesamt 84.477 
Bytes Speicherplatz zur Verfügung. Laut 
Handbuch plaziert EMBER die Variablen in 
das Extended RAM, während der Pro- 
grammtext in die unteren 48K geschoben 
wird. Die Speicherbelegung kann aus dem 
Handbuch (10) entnommen werden. 

Wie simpel die Benutzung von EMBER ist, 
zeigt die nachstehende Beschreibung zur 
Vorgehensweise: 


1. Phantom-Null-Diskette (für Accelerator) 
in Drive 1 einlegen und Apple einschalten. 
2. Nachdem das rote Licht am Drive er- 
löscht ist, „S“ tippen. 

3. Nachdem das rote Licht am Drive er- 
löscht ist, Phantom-Null-Diskette heraus- 
nehmen und die EMBER-Kopie in Drive 1 
einlegen. Dann die Leertaste drücken. 

4. EMBER meldet sich mit einigen Erläute- 
rungen und dem folgenden Menü: 


(1) Ember set-up 
(2) Install EMBER 
(3) Make back-up copy 


„1“ <Return> eingeben. Es erscheint das 
nächste Menü: 


(1) Look at Ember memory set-up 
(2) Set-up EMBER memory usage 
(3) Install Ember 

(4) Exit 


„2“ <Return> eingeben. Menü Nummer 
3 erscheint mit einer Inhaltsübersicht Slot/ 
Bank. Darunter erfolgt eine Abfrage: 


(1) Change slot contents 
(2) Exit 
Which option? 


„1° <Return> eingeben. Nun muß die 
Frage nach dem Slot beantwortet werden. 
Hier wird immer ein „O" <Return> erfor- 
derlich sein, da entweder eine Language 
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Card oder ein anderes Memory Board in 
Slot O stecken muß. Da mein Apple II+ 
sowohl mit einer Language Card als auch 
mit einem Saturn-128K-Board bestückt 
ist, tippe ich hier eine „O“ und drücke die 
Return-Taste. 

Wiederum erfolgt eine Abfrage: 


(1) 128K RAM card (3) 32K RAM card 
(2) 64K RAM card (4) 16K RAM card 
What is now in the slot? 


Dabei blinkt der angesprochene Slot. Mit 
„4“ <Return> wird in Slot O der Besitz 
einer 16K-RAM-Card vermerkt. Die Frage: 
„Do you wantto use the entire card?” wird 
mit „Y“ <Return> beantwortet und das 
Programm zeigt wieder die Abfrage: 


(1) Change slot contents 
(2) Exit 


„1° <Return> eingeben, wenn „Which 
option?“ erscheint. Die Frage nach dem 
gewünschten Slot „Which slot (3=aux)?" 
wird mit „4“ <Return> beantwortet, weil 
meine 128K-RAM-Karte in Slot 4 steckt. 
Das bereits bekannte Menü 


(1) 128K RAM card (3) 32K RAM card 
(2) 64K RAM card (4) 16K RAM card 
What is now in the slot? 


wird mit „I“ <Return> beantwortet. Die 
Frage „Do you want to use the entire 
card?“ hat ihre Berechtigung. Denn wenn 
man jetzt „Y“ <Return> tippt, dann wer- 
den in Slot 4 alle 8 Bänke der 128K-RAM- 
Card für EMBER reserviert, und es stehen 
insgesamt 166.397 Bytes zur Verfügung. 
Antwortet man aber mit „N” <Return>, 
wird jede einzelne Bank abgefragt und das 
Ergebnis in Slot 4 vermerkt. 

Das folgende Menü 


(1) Change slot contents 
(2) Exit 


wird mit „2 <Return> beantwortet, wo- 
durch sich Drive 1 in Bewegung setzt. 
Nachdem das rote Licht am Drive erlöscht 
ist, steht das folgende Menü auf dem Bild- 
schirm: 


(1) Look at Ember memory set-up 

(2) Set-up Ember memory usage 

(3) Install Ember 

(4) Exit 

Mit „3° <Return> wird der Installations- 


prozeß abgeschlossen und die Anzeige 
„Ember installed“ zeigt dies auch. 


5. RUN Programmname <Return> startet 
dann das eigentliche Programm. 


4 PRAXIS nn 


EMBER gestattet das Anlegen einer Turn- 
key-Version, so daß der eben beschriebe- 
ne Vorgang sich auf das Booten der Phan- 
tom-Null- und der Turnkey-Diskette be- 
schränkt. Dann kann sofort das gewünsch- 
te Programm gefahren werden. 

EMBER zeichnet sich durch eine ausge- 
sprochen einfache Bedienungsweise und 
eine enorme Leistungsfähigkeit aus. So 
braucht sich der Benutzer keinerlei Ge- 
danken über das Bank-Switching zu ma- 
chen, denn EMBER nimmt ihm derlei Ar- 
beit ab. 

Programme dieser Art sind Anwendern zu 
empfehlen, die nicht programmieren, son- 
dern den Apple II+ als Arbeitswerkzeug 
benutzen wollen. 

Bei den nachfolgenden Anwendungen hat 
sich herausgestellt, daß die Arbeitsge- 
schwindigkeit nicht von der Anzahl der von 
EMBER benutzten Bänke abhängt. 


3.3. Applesoft-Verbesserung 


Die unter (11) bis (16) aufgeführte Litera- 
tur empfiehlt für Applesoft-Programme 
u.a.! 

1) Variablen anstatt Fließkomma-Konstan- 
ten benutzen. 

2) Soweit als möglich sollte man Werte vor 
Beginn einer Schleife definieren. 


3) FOR-NEXT-Schleifen sollten ohne 
Schleifen-Variablennamen enden, also 
statt NEXT I sollte man nur NEXT 
schreiben. 


4) Unterprogramme und Zieladressen von 
GOTO-Befehlen sollte man an den Pro- 
grammanfang verlegen. 

5) Variablen sollten zu Programmanfang 
initialisiert werden. 

6) Zuweisungen sollte man mit dem LET- 
Befehl versehen. 

7) IF-THEN-Abfragen sollte man möglichst 
lange „falsch“ sein lassen. 

8) Möglichst kleine Zeilennummern ver- 
wenden. 

9) REM-Zeilen weglassen. 

10) Möglichst viele Befehle in einer Zeile 
unterbringen (Crunchen). 


Ich habe einige dieser Vorschläge auf ihre 
Wirkung bei meinem Simplex-Optimie- 
rungsprogramm Niemeyer (17) überprüft, 
soweit sie nicht schon berücksichtigt wa- 
ren. Das Programm Niemeyer benötigt in 
Verbindung mit der Accelerator-Karte 74 
Sekunden für eine Matrix A (27,47). Die 
Rechenzeit kann um 11 Sekunden auf 
nunmehr 63 Sekunden gesenkt werden, 
wenn die Vorschläge Nr. 3 und Nr. 6 bei 
der Codierung berücksichtigt werden. Die 
Wirkung ist in etwa 50 zu 50. Wenn man 
das Weglassen des Schleifen-Variablen- 
namens im optimierten Programm rück- 
gängig macht, kann man genau ersehen, 
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daß das Programm nunmehr ca. 5,5 Se- 
kunden (Stoppuhr) mehr benötigt. 

Die vorgeschlagene Initialisierung der Va- 
riablen direkt zu Programmbeginn führte 
zu einer Verringerung des Ausführungs- 
geschwindigkeit; benötigte der Apple bis- 
her nur 63 Sekunden, so waren es jetzt auf 
einmal 70 Sekunden. (Anm.d.Red.: Wenn 
einfache Variablen nach der Dimensionie- 
rung von Arrays angelegt werden, so müs- 
sen alle Felder im Speicher nach oben 
verschoben werden, da einfache Variablen 
stets unterhalb der Felder liegen.) Auch 
die Wirkung des Crunchens konnte ermit- 
telt werden. Das Ausgangsprogramm 
brauchte nach dem Crunchen nur noch 65 
Sekunden, also immerhin eine Verbesse- 
rung um 9 Sekunden. Wird das bereits 
erwähnte Programm nach der Optimierung 
(Vorschläge Nr. 3 und Nr. 6) gecruncht, so 
zieht dies eine weitere Abnahme der Re- 
chenzeit auf 61 Sekunden nach sich. 


4. Geschwindigkeitsvergleiche 


Als ich die erste Optimierungsaufgabe in 
der Praxis lösen mußte, war kein BASIC- 
Programm verfügbar. Das von mir darauf- 
hin erstellte Optimierungsprogramm be- 
nötigte für eine Matrix A (27,47) immerhin 
2 volle Stunden. Das Warten auf die opti- 
male Lösung bewog mich zu ausgedehn- 
ten Suchaktionen in Universitätsbibliothe- 
ken und Computershops. 

Die nachfolgend unter (17) bis (21) näher 
bezeichneten Simplex-Programme haben 
eines gemeinsam, nämlich den Aspekt der 
Anschaulichkeit, während dabei die Verar- 
beitungsgeschwindigkeit in den Hinter- 
grund tritt. Die Tabelle in Abb. 7 beweist, 
daß erhebliche Zeitunterschiede in der 
Bearbeitung einer Matrix der Größe 27 
Zeilen und 47 Spalten (Standardproblem 
Maximierung) zu verzeichnen sind, je 
nachdem welches Simplex-Optimierungs- 
programm ausgewählt wird. Weiterhin wird 
die Wirkung von Compilern (hier Hay- 
den+) und der Accelerator-Karte deutlich. 
Vergleicht man nun die Blöcke 4 und 1 
miteinander, wie in Abb. 8 geschehen, 
dann kann man am Faktor die Geschwin- 
digkeitsverbesserung je Programm able- 
sen. Auch die Wirkung von Compiler bzw. 
Accelerator-Karte kann isoliert werden. 
Beträgt die Matrixgröße etwa 70 Zeilen 
und 120 Spalten, dann genügt selbst ein 
DOS-Mover nicht mehr, um den benötig- 
ten Speicherplatz zur Verfügung zu stel- 
len. In einem derartigen Fall wird man mit 
der 128K-Karte von Saturn gute Ergebnis- 
se erzielen. Am einfachsten ist die Anwen- 
dung des EMBER-Programms, denn nach 
dem Starten der Phantom-Null-Disketie 
(wegen der Accelerator-Karte) und der be- 
reits erwähnten EMBER-Turnkey-Diskette 
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stehen immerhin max. 166.397 Bytes zur 
Verfügung, wobei allerdings bedacht wer- 
den muß, daß EMBER Felder (Arrays) mit 
max. 64K erlaubt. 

Wählt man das Simplex-Programm von 
Poole aus, so liegt die Lösung erst nach 
ca. 17 Stunden und 57 Minuten vor. Dage- 
gen benötigt der Apple unter den gleichen 
Voraussetzungen mit dem Programm von 
Gillett nur noch 8 Stunden und 7 Minuten. 
Das normale, also nicht optimierte Nie- 
meyer-Programm wirft nach 1 Stunde und 
59 Minuten die optimale Lösung aus, und 
das optimierte Niemeyer-Programm 
braucht nur 1 Stunde und 37 Minuten un- 
ter den gleichen Umständen. Würde man 
beim optimierten Niemeyer-Programm auf 
die Accelerator-Karte verzichten, so wür- 
de man ca. 5 Stunden und 22 Minuten 
warten müssen (Faktor 3,32). 


5. Fazit 


Dem Unternehmenscontroller steht heute 
eine Reihe von Möglichkeiten offen, um 
„als betriebswirtschaftlicher Begleiter für 
das Management“ (22) noch effizienter 
tätig werden zu können als in der Vergan- 
genheit. Der Apple II+ oder lie bietet mit 
seinen Erweiterungen die Chance, wirkli- 
ches „Gewinnmanagement" (23) zu be- 
treiben. 
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Hinweis zum 2. Teil 


Als zweiter und abschließender Teil ist ein 
Beitrag zum Thema „Matrizenrechnung in 
der betriebswirtschaftlichen Praxis“ vor- 
gesehen, der voraussichtlich im März-Heft 
erscheinen wird. 
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4 hobby 94 
Grafik-Demonstrationen 





Das nachfolgend abgedruckte Programm 
GRAFIK.DEMOS.2 ist die Fortsetzung 
von „Grafik-Demonstrationen“ aus 
Peeker, Heft 8/85, Seite 67. Der Zweck ist 
der gleiche geblieben. Es wird dargestellt, 
wie mit möglichst geringem Programmier- 
aufwand möglichst effektvolle HGR-Grafi- 
ken entstehen. Wesentlichster Unter- 
schied zu Teil 1 ist, daß die Pot-Punkte in 
den einzelnen Abschnitten nicht mehr di- 
rekt als feste Zahlenwerte, sondern alle als 
Variablen angesteuert werden. Alle Plot- 
Variablen stehen am Ende des Pro- 


Ki 

A 

a 
A 
rar 
Bi 
BP 
u 

FR 


GRAFIK.DEMOS.2 


1998 REM Ralf Knoke 

1818 REM Juli 1985 

1828 : 

19230 REM xkxkkrerr Teil la Krrarkerer 
1948 GOSUB 2650 

19859 HGR2 : HCOLOR= T:AZ = 3:02 = 32 
1668 IF BZ 


1878 FOR X 1 7062 


198% HPLOTE A,B 70 Al,ecr  HPLOTıD,B TOrD1.C2 DPLOF D,B1 TO 


D1,E: HELOT A,Bl TO ALLE 


1895 =B- AZ: :Al = Al + AZ:D1 = Di — AZ2:BlL = Bl + AZ 


11®8 NEXT X 
111 IF BZ = 2 THEN HPLOT G,E: GOTO 260% 
1128 REM xxxxxxx%+* Teil lb stseekakr 
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2 THEN AZ = 1: HCOLOR= B:CZ = 96 


Teil 2 von Ralf Knoke 


gramms. Die Variablen erscheinen sinn- 
voll, da praktisch alle Werte mehrmals ver- 
wendet werden. Alles übrige ist gleich ge- 
blieben, ausgenommen natürlich die Grafi- 
ken selbst. Dadurch entfallen diesmal 
auch alle weiteren Erklärungen und es ist 
nur noch viel Spaß zu wünschen! 


GET A$ 
GOSUB 2659 


Kurzhinweise 


1. Zweck: 

Demonstration effektvoller Grafiken 
2. Konfiguration: 

II+, Ile oder ilc; 

DOS 3.3 oder ProDOS 

3. Test: 

RUN GRAFIK.DEMOS.2 

4. Sammeldisk: 

GRAFIK.DEMOS.2 
(Applesoft-Programm) 


FÜR X = 1 TO 96: 

HPLOT A,B TO Al,€C: HPLOT D,B TO BL.C: HELOT D,B TO 
D1,E: HPLOT A,B TO AL,.E 
A=Ar1l:il=Al+2:D=D-1:Dl=Dl-2 


NEXT X 


REM xxx#x#x#«#*+ Teil 2 SkehrHertrr 


GET 4$ 
GOSUB 2659 


HGR2 : HCOLOR= 7 


HFLOT G2,0 TO G2,E: HPLOF EB TO EB 


FOR X = 1 TO 16 


G2,.60-h 3 


HPLOT G2,C +3 TO G +8,B TO G2,E - 3 TO Gl - 8,B TO 


C=-C+6:G6G=G+S:E=E - 6:61 =G1 -8 


NEXT X 





61 


62 


1289 
1298 
136% 
1318 
1326 
133% 
1349 
1358 
1369 
1376 
138% 
139% 
1498 
1418 
1426 
143% 
1449 


145% 


1469 
147% 


1489 


149$ 
1500 
151 
1528 
153 
154$ 


155% 
1569 


1570 


1586 
1598 
1696 
161$ 
1626 
1639 
1646 


1656 
166% 
1679 
168% 
1696 
1768 
1718 
1728 
173% 
1749 
1758 
1769 
1779 
1788 
1790 
1899 
181# 
1829 
1839 
1849 
185% 
1869 
1878 
1889 
1899 
19A9 
1918 
1929 
193% 
1949 
1958 
1969 


1978 
1988 
1999 
2d09 
2B1® 


REM ##r#k%%x* Teil 3 Kkkkkkhrerr 


GET A$ 

BZ=1 

HGR2 : HCOLOR= 7:AZ = 1ß 

GOSUB 2659 

FOR X = 1 TO 28 

IF BZ = 1 THEN HPLOT A,B TO G,AB TO AC,B 
IF BZ = 2 THEN HPLOT G,AB TO A,B TO G,H 
IF BZ = 1 THEN AB = AB + AZ 

IF BZ=S2 THENA=AH+AZ 

NEXT X 


BZ ='B2A 2.12 IF BZ 2 GOTO 132% 

REM ##x#kx#x+ Teil 4 Kerrhrkrkr 

GET A$ 

GOSUB 2659 

HGR2 : HCOLOR= 7 

HELOT AE.C TO 2.21 TO BL,.Y) TO DL,.AH TO ZIE TO BE E TO 
Al AH 70 21,310 TO7AB,.C1 7056,77 70 2.0 70 21.7 TO DI Tl 
170 2,,B TO DlzAH IV 21,41 70 ZzE TO G.AL 0 ARE In 
AG,AI TO AL,AH TO AG,B TO AL,Y1 TO AG,Y TO AB,C 

HPLOT &,x TO G,AT: HPLÖT 21,7 TO AG AL: HPLET ZL.B TO 
AE,B: HEELOT Z1,.AT TO AG,Y 

FOR X = 1 T0 32 

HEEORNSG.YTO AB #220 HPEOT 21.8 TO Zen ler 2 
HPLOT ZL,B TO D, NL #2: 7HELOT 21,81 70 Bl = 2,40 82: 
HFLOT G.AI TO AB + 2,8: HPLOT AG.AI TO AL + 2. 2H # 2: 
HPLOT AG,.B TO.A.YI + 2: HPLOT AG. WM Ar = 2,01 #2 

AE = AE + 2:2 = 2 + 2:01 =Cl +2: Y1l = Yl + 2: Dl = DI —- 
2:AH = AH + 2:Al = Al + 2:AF=ÄAF - 2 

NEXT X 

REM ###xxx3+3#* Teil 5 Skktshrrrrr 

GET A$ 

GOSUB 2659 

HGR2 : HCOLOR= 7 | 
HREEOT>ASE 107057 T0 DE TO 2A ,E TOR, TOSDEE- HELOTSD SG | 
TO A,E 

FOR X = 1 TO 23: A2 = 4 

HFLOT A + AZ,C TO G — AZ,BlL — AZ TO AL,CI + AZ: HPLOT D 
— AZ,C TO GI + AZ,Bl - AZ TO DL,C1 + AZ: HPLOTD - AZ,E 
TO Gl + AZ,B + AZ TO DL,El —- AZ: HPLOTA + AZ,ETOG - 
AZ,B+ AZ TO AL, EL — AZ 

A=AH+A2:G=G - A2:Bl =Bl - AZ:C1l = (Cl +r AZ: D =D -—- 
AZ:Gl = Gl + AZ: B=B + AZ:EL = El - AZ 

NEXT X 

REM #kx#x%x33x%* Teil 6 Krk 

GET A$ 

GOSUB 265% 

HGR2 : HCOLOR= 7 

FOR X = 1 T0 12:A2 = 3 

HFLOT G,.&E TO R.5 TO B,T TO D.E TO R,S TO R,T TU GB TO 


U.V IE W.Y TONG.c TO UV TOW.V TOsE,B 70%. TI 10.%,.5:70 
A.B 70 2.2 20.3.5 10 6.B 10. W2 700,2 TO’GE TU VW. z 70 
Vz TU 6G,B 

S=-5+A42:T=T-AZU=- U+HAÄAZIN=S W - AZ 

NEXT X 

REM x#xx#xx#%+ Teil 7 werkkrarrttr 

GET A$ 

GOSUB 265% 

HGR2 : HCOLÖR= T:AZ2 = 53 

HPLOT A,C TO A,.B TO D,.E TOD,.E 

FOR X = | TU 28 

HPLOT D,B TO Al,B2 - AZ 

HPLOT A,B TO D1,El + AZ 

B=-D- 7TB=B2- 3Bbl = BEL + :A= A +7 

NEXT X 

REM xxxx##33+* Teil 8 Kerr 

GET 4A$ 

GOSUB 265% 

HGR2 : HCOLOR= T:AZ = 4 


FOR X = ß TO 69 
HPEOT C,Cl TORE TOR. GI 
IF X < 48 THEN HPLOT Fl,C TO CL,El TO FL.EIL 


C=C+A2:F=F-AZ:EL =SElL - AZ 
NEXT X 

REM xxrx#xxx* Teil 9 ecke 

GET A$ 

HGR2 : HCOLOR= 7:AZ = 4:BZ = 1:02 = 24 
GOSUB 2659 

FOR & = 1.70 52 


HFLOT G,B TO GL,B TO Gl,Bl TO G,Bl TO G,B 
G=G- AZ2:B=B - AZ:Gl = Gl + AZ:Bl = Bl + AZ 
NEXT X 

BZ2= BA +] 

IF BZ = 2 THEN HCOLOR= 8: GOTO 1899 

IF BZ = 3 THEN HCOLOR= 7:02 = CZ # 2:42 = AZ - 2: GOTÜ 
1899 

REM x#xxx+x2%+ Teil 19 sek 

GET A$ 

HGR2 : HCOLOR= T:AZ = 4:BZ = 1:02 = 1 

GOSUB 2649 

FORX = 1 TOl 





HPLOT G,B TO Gl,B TO G1,Bl TO G,Bl TO G,B 

HPLOT G2,B- 2 TO 6Gl + 2,B2 RT &2,Bl +2 T0G - 2,B T 
GRE,B-2 

NEXT X 

BZ =BZ2 +1 

Tr 62 = 23 Goro 211% 

IF BZ = 2 THEN HCOLOR= #: GOTO 281% 

IF BZ = 3 THEN HCOLOR= 7: GOTO 219 

IF BZ = 4 THEN BZ = 1: HCOLOR= 7:G =G - AZ2:B=B - A2: 
Gl = Gl + AZ:Bl = Bl + AZ:CZ = CZ + 1: GOTO 219 

REM ###3#+#+#+3%* Teil 11 Krk 

GET A$ 

HCOLOR= 7 

GOSUB 2659 

FOR X = ß TO 191 

HPLOTIG, EI. TOrE, Cl 

HCOLOR=- 9: HPLOT -@.C1 TOrE.Cl 

il 

HCOLOR= 7: NEXT 

REM ####x#+++%3+* Teil 12 KH 

GET A$ 

GOSUB 2659 

HGR2 : HCOLOR= T:AZ = 2 

FORX= 1 T0 5% 

HPLOT A,C TO D,.E: HPLOT DL,C1 TO AL .El 

A=A+AZ:D=D - AZ:Cl = Cl + AZ:ElL = El - AZ 

NEXT 

REM ###xxx3x* Teil 13 KeRrrrkrrr 

GET A$ 

GOSUB 2659 

HGR2 : HCOLOR= 7 

FOR X=1T 32 

HELOT>E,.O STEEL .B TO GC. HELOT EG. BE 10201,B 7790 75,5: 
HPLOT IE TO SCL BIO E.E 

GCl= Cl +9: NEXT 

REM x#x#rx%%* Teil 14 KrrrrEkr* 

GET A$ 

GOSUB 2669: HGR2 
FOR X = 1 T0 16 
BZ = AL - AJ 
HPLOT AJ,AK TO AJ — BZ,AK TO AJ —- BZ,AK - BZ TO AJ,AK — 
BZ TO AJ,AK TO AL,AK TO AL + BZ, AK TO AL + BZ, AK - BZ 
TO AL,AK — BZ TO AL,AK TO AL,AM TO AL + BZ,AM TO AL + 
BZ,AM + BZ TO AL,AM + BZ TO AL,AM TO AJ,AM TO Al - 
BZ,AM TO AJ — BZ,AM + BZ TO AJ,AM + BZ TO AJ,AK 

AJ=AJ - 2:K = AK — Z:AL = AL + 2:AM = AM + 2 

NEXT 

REM #x#x#x%%** Teil 15 Berk 

GET A$ 

GOSUB 2659: HGR2 : HCOLOR= 7 

HPLOT G,AN TO G,AO TO F,AN 

FOR X = 1 TO 34 

HPLOT C + 4,AN - 4 TO 
G=CG+H4:ÄN=ÄN - 4: 
NEXT 

REM xk#kk3x#%%*+ Teil 16 KrHrkkere* 

GET A$ 

GOSUB 2658: HGR2 : HCOLOR= 7 

HFLOT C,B TO AF,AR TO AQ,AS TO F,B TO AQ,AR TO AP,AS TO 
CB 

FOR X = 1 TÜ 17 

HPLOT C,B TO AP,AAR TO G,B TO AQ,AR: HPLOT C,B1 TO AP,AS 
LOG, Bl TOCA0.AS 

C=CG+4:ÄAP=AP +4 B=B- A:AR=- AR + 4:G =G +4: 
Bl =Bl+4:45 = A5 - 4AQ = Ad + 4 

NEXT 

REM #x###3#+%+* Teil 17 Kae r* 

GET A$ 

HOME : TEXT : 
WAEHLEN: !"': PRINT : 
PRINT "{2) ENDE" 
PRINT : GET A$ 

IF A$ = "1" OR A$ = "J" GOTO 1949 
HOME : END 

REM *#***3%*%*%*%* Initialisierung **% 
A A3:Al - A5:B. 95:.B1°=1855:B2 =755,B5 = 95: = 9 
= 9:D = 235:Dl = 235:E = 191:El = 191:F = 279:Fl = 

G 139:G1 = 139:G2 = 139:H = 1% 

R= 215:5 > 69:7 = 130 U= Id4Y = 13V a 1 AT = rl 


: HCOLOR= 7 


0 +4 


+4,A 
=G+4:A0 =A0O + 4 


G 
G 


VTAB (19): HTAB (5): PRINT "BITTE 
PRINT "{1} NOCH EINMAL?": PRINT : 


= 63:2 = 171:21 = 171:AB = 1:AC = 234: AE = 1ßT:ArF 
197:AG = 107:4H = 127.41 = 12749 = 138:4Kk = S4:AL = 
146:AM = 96:AN = 1565:A0 = 26:AP = 69:AQ = 2B8:AR = 25: 
AS = 165 

RETURN 


Zeile 2398 muß ohne Leertasten eingegeben werden, 
da sie ansonsten nicht in den Eingabepuffer paßt 


= 
— 
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Ein neues Bildgefühl 


Wenn bis zu 512 digitalisierte Fernseh- 
oder Videobilder auf dem Monitor eines 
Apple II das Laufen lernen und dabei ein 
Tempo von bis zu 13 Bildern pro Sekunde 
erreichen, dann steckt des Rätsels Lösung 
nicht in der „neuen“ Firmenpolitik des 
Konzerns mit dem gestreiften Apfel auf 
dem Surfsegel, sondern im Slot 7 der im- 
mer noch aktuellen Wozniak-Maschine. 
Für diesen Slot wurde im Berliner Inge- 
nieur-Büro M. Fricke eine neue Digitalisie- 
rungskarte entwickelt, die sich durch zwei 
besondere Qualitäten von allen bisherigen 
Karten dieser Art unterscheidet: 

1. Das von der Karte empfangene Videosi- 
gnal wird in 384 x 320 Bildpunkten digitali- 
siert, also 16K Bildinformation, was erheb- 
lich mehr ist, als sonst in der Apple-Klasse 
geboten wird und jeglicher weiteren Bear- 
beitung eine solide Ausgangsbasis ver- 
schafft. 

2. Das Video-1000-Interface unterstützt 
von sich aus RAM-Karten bis 1 MByte; 
eine Fähigkeit, die erstaunliche Möglich- 
keiten eröffnet, wie z.B. serielle Digitalisie- 
rungsvorgänge und Ganzbild-Animation. 


Kabelsalat als Vorspeise 


Bis die Karte allerdings ihre Vorzüge dem 
Benutzer unter Beweis stellen kann, lernt 
dieser erst einmal ihre Unzulänglichkeiten 
kennen. Auf der kleinen, sehr sauber ver- 
arbeiteten Interfaceplatine sind 3 Cinch- 
Eingänge so dicht nebeneinander mon- 
tiert, daß die im Videobereich üblichen 
Cinch-Stecker mit Metallummantelung 
nicht genügend Platz finden. In eine derart 
engstirnige Raumaufteilung lassen sich le- 
diglich plastikumfaßte Billigstecker in Reih 


Now it's looking at you, Kid, 
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Video-Clips 
für 
jedermann 





Die Video-1000-Karte 


Erfahrungsbericht von Norbert Man Brandl 


und Glied bringen. Doch welche Kamera, 
welcher Videorecorder verfügt zur Zeit 
noch über solche zierlichen Zuführungen? 
Mir ist klar, daß dem Normen-Dschungel 
der Videohersteller nicht mit einfachen 
Mitteln Paroli zu bieten ist, doch sollte man 
dessen Existenz nicht völlig außer acht 
lassen. Deswegen lautet mein Vorschlag 
an die Video-1000-Entwickler: Cinch-Ein- 
gänge nicht direkt auf die Platine löten, 
sondern durch kurze Zuleitungen bis an 
die Rückwand des Computers herausführ- 
bar gestalten. Außerhalb des Computers 
ist jedenfalls mehr Platz für dicke Video- 
kupplungen und Kabel. 

Obwohl ich von Berufs wegen seit Jahren 
mit Video arbeite und über eine beträchtli- 
che Anzahl verschiedener Kabel und 
Stecker verfüge, eilte ich also, mit dem 


Remember Paris? 


Ladenschlußgesetz als unsichtbarem Da- 
moklesschwert über dem Haupt, durch die 
Videoabteilungen des Fachhandels, um 
mir die zierlichsten Cinch-Stecker, die auf- 
findbar waren, zu besorgen. 

Zwei Stunden später und fünfzig Mark är- 
mer war es mir endlich gelungen, die Vi- 
deo- und die Computerwelt zufriedenstel- 
lend zu verbinden. Drei Kabel fanden sich 
nach einigem Widerstand mit der Enge im 
Inneren des Computers ab. Das eine war 
über Adapter und Verlängerung mit einem 
Videorecorder verbunden. Das zweite war 
bereit, das Videosignal aus dem Apple auf- 
zunehmen, es durch die Karte zu schleifen 
und über das dritte Kabel an den Monitor 
abzugeben. Dieses auf den ersten Blick 
etwas umständlich wirkende Verbindungs- 
system befreit von dem Zwang eines 
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zweiten Kontrollmonitors und läßt den 
Computer ohne zusätzliche Schalt- oder 
Umstöpselmanöver seine sonstigen An- 
wendungen wie gewohnt abarbeiten. 


Anm.d.Red.: Die Firma Hamaphot KG, 
Monheim (Bayern), hat uns ihren neuen 
640seitigen Farbkatalog „hama photo + 
video. Das große Neuheitenprogramm im 
Zubehör-Ratgeber 1985/86“ zugesandt, 
der für eine Schutzgebühr von DM 10,- 
erhältlich ist und u.a. seitenweise Cinch- 
Stecker aller Art und Größe beschreibt. 


Euphorie und Bilderfieber 


Nach einem letzten, flüchtigen Blick auf 
die zwei beidseitig mit Matrixdruck gestal- 
teten DIN-A4-Blätter, die, nicht ohne den 
Leser mit einigen köstlichen Tippfehlern 
zu unterhalten, in knapper und sachlicher 
Form über Bedienung und Möglichkeiten 
der Karte Auskunft geben, bootete ich die 
mitgelieferte Diskette und erlebte, wie 
schnell sich anfänglicher Ärger in nachhal- 
tige Zufriedenheit verwandeln kann. 

Software und Karte bilden zusammen ein 
verblüffend schnelles Werkzeug. Die Be- 
dienungsschnittstelle ist kinderleicht zu 
handhaben. Sobald die Frage nach einer 
etwaigen RAM-Karte negativ beantwortet 
ist, liegt das Videosignal ohne Grauwerte 
sofort auf dem Monitor vor. Andernfalls 
müssen Slot und Größe der RAM-Erweite- 
rung dem Programm mitgeteilt werden. Mit 
den Pfeiltasten ist die Helligkeit des Video- 
bildes einstellbar, wodurch selbst kon- 
trastarme oder schlecht ausgeleuchtete 
Videovorlagen in den Griff zu bekommen 
sind. Eine fest implementierte Alternative 
zu dem normalen Schwarz-Weiß-Strich- 
bild stellt das Punktrasterbild dar, das über 





[| stick my neck out for nobody. 
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die Taste „P“ anwählbar ist. Die Rasterung 
bietet eine einfache Art, Grauwerte vorzu- 
täuschen. Ob nun im Raster- oder Strich- 
modus, ein Druck auf die Taste „R“ digita- 
lisiert das Bild und schreibt es sowohl in 
das Video-1000-RAM als auch in den 
Hauptspeicher des Computers, von 
$4000-$7BFF. Weil demzufolge der Be- 
reich der zweiten hochauflösenden Seite 
belegt ist, wird ein Ausschnitt des digitali- 
sierten Bildes über die erste HGR-Seite 
angezeigt. Dieser Ausschnitt ist mit Hilfe 
der vier Pfeiltasten (Apple II+: A = auf- 
wärts, Z = abwärts) über das gesamte 
16K-Bild „verschiebbar", indem die ent- 
sprechenden Bildteile in die HGR-Seite 
übertragen werden. Dieser Vorgang ist 
sehr schnell und macht die Wanderung 
über das digitalisierte Großbild zu einer 
vergnüglichen Entdeckungsreise. Besteht 
der Wunsch, das ganze Bild auf einen 
Blick zu sehen, kann ein Rasterbild mit 
„Gtrl-P“ und ein normales Strichbild mit 
„Otrl-N* auf die Dimensionen der HGR- 
Seite verkleinert werden. Sowohl die Aus- 
schnitte als auch die Verkleinerungen sind 
in jeweils 34-Sektoren-Binärdateien auf 
Diskette speicherbar und für übliche Gra- 
fik- und Drucksoftware zugänglich. Die 
16K-Bilder müssen hingegen mit „Otrl-S“ 
und einer Nummer von 1 bis 8 auf geson- 
derte Disketten geschrieben werden, die 
keinen „CATALOG“ besitzen und maxi- 
mal 8 ausschließlich über Nummern iden- 
tifizierbare Bild-Dateien beinhalten. Die er- 
ste dieser großen Binärdateien belegt 
Track 3-6, die zweite Track 7-11 usw. bis 
Datei Nr. 8, die sich von Track 31 bis Track 
34 erstreckt, Die Geschwindigkeit, mit der 
diese Jumbo-Files geschrieben und mit 
„Otri-L + Nummer“ gelesen werden, hat 
mich beeindruckt. 


Da weder Inhaltsverzeichnisse noch Bil- 
dernamen den Benutzer durch eine 
schnell wachsende Sammlung abgespei- 
cherter Video-1000-Bilder lotsen, sollte 
der Griff zur klassischen Kombination aus 
Bleistift und Papier als Gedächtnisstütze 
nicht allzuspät erfolgen. Es Ist übrigens die 
einzige Zettelwirtschaft, die tastaturver- 
wöhnten Fingern abverlangt wird, denn 
sämtliche Befehlsfolgen und Informatio- 
nen über den Status praesens des Sy- 
stems sind über eine Hilisseite ein- 
blenabar. 

Wie nützlich die stets aktuellen Nachrich- 
ten der elektronischen Help-Page sein 
können, wurde mir erst bewußt, als ich 
zum ersten Mal eine 512K-RAM-Karte mit 
ins Video-1000-Spiel einbrachte. Der zu- 
sätzliche Speicherbereich, den man der 
Digitalisierungsarbeit zur Verfügung stel- 
len kann, wird nämlich vom System aus 
genauso gehandhabt wie physische Dis- 
ketten. Daraus ergibt sich einerseits die 
Schwelle von mindesten 128K auf einer 
RAM-Karte, um überhaupt für das Video- 
1000-System von Interesse sein zu kön- 
nen, und andererseits die Unterteilung der 
größeren RAM-Karten, die ja — wie ein- 
gangs erwähnt — bis in den 1MByte-Be- 
reich hinein akzeptiert werden, in jeweils 
128K-Blocks. Schon in der von mir gete- 
steten Konfiguration standen also 4 Blocks 
für insgesamt 32 16K-Bilder zur Verfü- 
gung. Bewegen sich hierbei die Wünsche 
und Bedürfnisse des Anwenders auf der 
voll automatisierten Arbeitsebene, die das 
Video-1000-Interface bietet, braucht kein 
Gedanke über Blockzuweisung und Bild- 
nummer verschwendet zu werden. Mit 
dem Befehl „Ctri-R“ digitalisiert die Karte 
selbständig Bilderfolgen in einem Zeittakt 
von 4 Bildern pro Sekunde, solange die 





The beginning of a beautiful friendship... 
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zugewiesene Speicherkapazität ausreicht. 
Das Abspielen der Bilderfolgen wird durch 
den Befehl „Ctrl-F“ erreicht. Beides ver- 
wandelt den Apple in eine ungeahnt flinke 
Bildermaschine. Sobald aber Anwendun- 
gen zu bewältigen sind, die das Transferie- 
ren, Abrufen oder Einsortieren einzelner 
Bilder innerhalb der erweiterten Speicher- 
struktur unumgänglich machen, ist es not- 
wendig, eine genaue Information über den 
gerade aktiven RAM-Block zu besitzen. 
Ob nun das Neuausrichten der Videoka- 
mera, das Suchen bestimmter Szenen auf 
dem Videoband oder andere notwendige 
Tätigkeiten den schnellen Arbeitsfluß, den 
die Karte ermöglicht, unterbrechen und die 
Konzentration ablenken — die Taste mit 
dem „?“ hilft stets weiter. Ein Blick auf die 
Hilfsseite bringt den aktiven Speicherblock 
wieder in Erinnerung und unterstreicht die 
freundliche Qualität einer Help-Page, die 
ihre Aufgabe diskret und bedarfsgerecht 
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erledigt, ohne die Arbeitsfläche eines klei- 
nen 8-Bit-Systems mit Symbo!-Girlanden 
und Rollmenüs zu belasten. 


Und wie geht’s weiter? 


Bereits die Grundkonfiguration aus Inter- 
face und Software liefert genügend Argu- 
mente, die das Video-1000-System so- 
wohl im Hobby- als auch im Profibereich 
hohem Anspruch gerecht werden läßt. Voll- 
ends aus dem Kreis der Mitbewerber hebt 
sich das System durch seine außerordent- 
lich flexiblen Ausbaumöglichkeiten hervor. 
Das Ingenieur-Büro M. Fricke liefert ein 
breites Spektrum von RAM-Karten, die 
das beste mir bekannte Preis/Leistungs- 
verhältnis auf dem deutschen Markt vor- 
weisen können. Darüber hinaus sorgen 
die Berliner Hersteller auch für die soft- 
waremäßige Zukunft ihres Systems. Drei 


ka En 


ug Ae- 
a Pu # 
“id E:.ud 











—- Tips und Tricks 


44 TESTbERICHTE 44 


weitere Software-Pakete werden ab No- 
vember 1985 die Video-1000-Möglichkei- 
ten potenzieren. Es handelt sich hierbei im 
einzelnen um 

— ein Programm zur Digitalisierung von 
Video-Standbildern in bis zu 16 Graustu- 
fen und deren Ausgabe in hoher Matrix- 
druckqualität, 

— eine Sammlung von Hires-Utilities zur 
komplexen Nachbearbeitung der digitali- 
sierten Vorlagen und schließlich um 

— RAM-Karten unterstützende Software, 
die aus laufenden Fernseh-, Videoband- 
oder Kamera-Aktionen bis zu 512 Bilder 
digital umwandelt und als Computer-Clips 
vorführt. 

Das sensationellste an der Video-1000- 
Geschichte ist jedoch der Preis. Für nur 
ca. DM 300, - läßt das Video-1000-System 
die hellsten Weihnachtsglöckchen erklin- 
gen, und das völlig unabhängig von Kalen- 
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Die völlig überarbeitete dritte Auflage (mit neuer Begleitdiskette) erscheint Anfang 1986. 


Dr. Alfred Hüthig Verlag - Postfach 102869 - 6900 Heidelberg 
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The Write Choice 


Ein preiswertes Textverarbeitungsprogramm 


Erfahrungsbericht von Franz-Josef Hüskens 


Für den Apple Il gibt es inzwischen 
zahlreiche Textverarbeitungspro- 
gramme. Das bekannteste dürfte 
wohl „Wordstar“ sein. Mit einem 
Preis von über 1000,- DM schreckt 
es jedoch sicherlich viele Privat- 
leute und Kleingewerbetreibende 
ab, 

Von der Firma Apple selbst wird 
der „Applewriter" sowie die in 
„Appleworks“ integrierte Textver- 
arbeitung angeboten. Die hierfür 
verlangten Preise von ca. 500,- 
bzw. über 800,- DM sind auch 
nicht von Pappe. Voraussetzung 
für die Anschaffung von derart teu- 
ren Textverarbeitungs-Program- 
men ist eine kommerzielle und/ 
oder häufige Nutzung. Für die ge- 
legentliche Anwendung im Heim- 
bereich oder in kleineren Betrie- 
ben muß jeder Anwender für sich 
selbst entscheiden, ob sich eine 
derart kostspiellige Anschaffung 
lohnt. 

Es gibt jedoch auch sehr preiswer- 
te Textverarbeitungsprogramme, 
die fast das gleiche leisten. Eines 
dieser „billigen“ Systeme soll hier 
vorgestellt werden. 

Es handelt sich um The Write 
Choice, vertrieben von der Firma 
Roger Wagner, deren Inhaber 
langjährigen Apple-Besitzern kein 
Unbekannter sein dürfte: Von ihm 
stammen die Programmsammlung 
Apple-Doc und verschiedene an- 
dere Softwarepakete. Außerdem 
ist er als Buchautor hervorge- 
trelen. 


„Write Choice“ besteht aus vier 
Teilen: 

— Word Processing Style Manual 
(im 152seitigen Handbuch ent- 
halten) 

— The Analyst 

— Tut’s Typer 

— The Correspondent (Hauptpro- 
gramm) 


1. Word Processing Style 
Manual 


Das „Word Processing Style Ma- 
nual“ ist Teil des Handbuchs und 
erklärt auf ca. 50 Seiten, wie man 
einen guten Stil schreibt, und gibt 
Tips für Geschäftsbriefe, Manu- 
skripte usw. Da das Programm aus 
Amerika kommt, ist es auf die eng- 
lische Sprache ausgerichtet. Man 
kann damit also sein eigenes Eng- 
lisch auffrischen oder als Schüler 
seine Sprachkenntnisse vertiefen. 
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2. The Analyst 


Der „Analyst“ ist ein Programm, 
das die Lesbarkeit eines Textes 
untersucht. Dazu werden im Text 
verschiedene Werte, die für die 
Lesbarkeit relevant sind, festge- 
stellt. Das Programm scheint je- 
doch nicht richtig zu arbeiten, da 
es manchmal sehr seltsame Resul- 
tate anzeigt. Dieser Text sollte ein- 
mal aus über 20.000 Wörtern be- 
stehen, dann aus etwa 19 000. Die 
vermutlich (und hoffentlich) richti- 
gen Werte wurden nach mehrmali- 
gem Probieren angezeigt. Das 
Programm ist für meine Begriffe 
eine Spielerei mit wenig Nutzen. 


3. Tut’s Typer 


„Tut's Typer“ ist ein Hires-Grafik- 
Programm, das auf unterhaltsame 
Weise einen „Schreibmaschinen- 
kurs" bietet und zusätzlich durch 
ein Spiel die Schreibfähigkeit trai- 
niert: 


a) Der erste Teil des Programms 
benutzt die Hires-Grafik-Fähigkei- 
ten des Apple, um die Tastatur auf 
dem Bildschirm abzubilden. An- 
hand dieser Grafik-Tastatur wird 
die richtige Plazierung der Finger 
auf den Tasten geübt und mit ver- 
schiedenen Lektionen die richtige 
Bewegung der Finger auf der Ta- 
statur gezeigt. Nach Beendigung 
jeder Lektion erhält man einen 
Ausdruck über die Anzahl der feh- 
lerhaften Buchstaben bzw. der fal- 
schen Wörter. Gehört man bereits 
zu den fortgeschrittenen Maschi- 
nenschreibern, so wird dieses Pro- 
gramm schneil langweilig, weil es 
zu langsam ist. Schnelleres 
Schreiben ist wegen der zeitrau- 
benden Darstellung der Tastatur 
auf dem Bildschirm unmöglich. 


b) Der zweite Programmteil ist für 
fortgeschrittene Schüler gedacht. 
Hier kommt es auf Geschwindig- 
keit an. Man findet sich als „Spie- 
ler“ in den Labyrinthen der Pyrami- 
de des Pharao Tut wieder. Im er- 
sten Korridor des Labyrinths tau- 
chen Wörter auf, die eingetippt 
werden müssen. Gelingt dies 
nicht, bevor ein Wort das Ende des 
Korridors erreicht hat, so ver- 
schwindet es wieder. Andernfalls 
taucht es in einem zweiten, später 
in einem dritten Korridor auf usw. 
Jedesmal muß das Wort vor sei- 


nem Verschwinden eingegeben 
werden. Auf den ersten Blick 
scheint dies kein Problem zu sein. 
Bei einem Wort! Es bleibt jedoch 
nicht dabei, denn in regelmäßigen 
Abständen tauchen immer mehr 
Wörter auf. Nach einer gewissen 
Zeit wird das „Spiel“ beendet, das 
Ergebnis angezeigt und auf Disket- 
te festgehalten. Mit diesem Pro- 
grammteil können Wettkämpfe 
zwischen bis zu 25 Teilnehmern 
ausgetragen werden. Damit keine 
Langeweile aufkommt, können 
auch neue Lehrstücke aufgestellt 
werden, In dem 12seitigen Anhang 
des Handbuches wird erklärt, wie 
man neue Lektionen mit dem 
„Correspondent“ entwickelt. 


4. The Correspondent 


Der „Correspondent“ ist das 
„Herz“ des Programmpakets. Es 
ist das eigentliche Textverarbei- 
tungsprogramm mit folgenden 
Merkmalen: 


Horizontales Scrollen: Der ein- 
gegebene Text wird auf dem Bild- 
schirm so angezeigt, wie er auch 
später auf dem Papier zu sehen ist. 
Das Besondere dabei ist, daß die 
Anzeige sowohl mit der 80-Zei- 
chenkarte als auch im 40-Z/Z-Mo- 
dus möglich ist. Die maximale Zei- 
lenlänge ist frei wählbar. Ohne 80- 
Zeichenkarte beträgt sie 80 Zei- 
chen; mit entsprechender Hard- 
ware (9 80-2/Z-Karten werden un- 
terstützt) können maximal 160 Zei- 
chen pro Zeile bearbeitet werden. 
Mit der Videx-Ultraterm-Karte kann 
eine Zeile angeblich bis zu 255 
Zeichen lang sein! Ist die Zeile län- 
ger, als es die Anzeigekapazität 
zuläßt, wird trotzdem alles zeilen- 
richtig wiedergegeben. 

Der auf dem Bildschirm angezeigte 
Ausschnitt bewegt sich entspre- 
chend der Cursorposition in die lin- 
ke bzw. rechte Hälfte des Textes. 
Mit Gtrl-O kann man sich — unab- 
hängig von der momentanen Cur- 
sorposition — den nicht sichtbaren 
Textteil ansehen. Durch eine stän- 
dig eingeblendete Statuszeile 
wird man über die aktuelle Position 
des Cursors im Text informiert. An- 
gezeigt wird die Seite, die Zeile 
und die Spalte, in der sich der Cur- 
sor befindet. Die Statuszeile gibt 
auch Auskunft über den Modus, in 
dem gerade gearbeitet wird (Edit 
bzw. File-Modus). Eine Tabulator- 
zeile wird am Anfang einer jeden 
Seite angezeigt. In dieser Zeile 
können mit Cirl-S Tabulator- 
Stopp-Punkte beliebig gesetzt 
oder gelöscht werden. Ein Stern in 
der Mitte der Tabulatorzeile zeigt 


die tatsächliche Mitte der Textseite 
an. 


Eingabe-Modus: Die Texteingabe 
erfolgt so, wie man es von anderen 
Textverarbeitungsprogrammen her 
gewohnt ist: Ein Drücken der Re- 
turn-Taste ist nur am Ende eines 
Absatzes nötig. Falsche Buchsta- 
ben werden einfach durch Über- 
schreibung berichtigt. Die Formatie- 
rung des Textes erfolgt „wort-rich- 
tig“ direkt auf dem Bildschirm. Das 
Programm erkennt automatisch, 
wenn ein Wort nicht mehr in die 
laufende Zeile paßt, und springt 
dann selbsttätig zum Anfang der 
folgenden Zeile. Wird die Tren- 
nung von Worten gewünscht, so 
muß der Trennstrich von Hand ein- 
gegeben werden. Der „Corre- 
spondent" erkennt ihn am Zeilen- 
ende und formatiert entsprechend. 


Im Editier-Modus kann der Cursor 
beliebig im Text bewegt werden, 
Die Tasten Ctrl-U, Otrl-H, Cirl-J 
und Citri-K erlauben neben den 
Pfeiltasten die Bewegung des Cur- 
sors nach rechts, links, unten und 
oben. Für die schnelle Überbrük- 
kung größerer Entfernungen im 
Text kann man mit Ctrl-T zum 
nächsten Tabulator-Stopp sprin- 
gen. Gtrl-Y bewegt den Cursor 
zum nächsten Wort. Abhängig von 
der zuletzt gedrückten Pfeiltaste 
(rechts, links) sind diese „weiten 
Sprünge“ in beide Richtungen 
möglich. Mit Ctrl-B springt man 
zum Textanfang, mit Ctri-E zum 
Textende. Mit Otrl-V kann man sich 
die letzte durchgeführte Änderung 
im Text anzeigen lassen. 

Der „Correspondent“ hat folgende 
Editier-Befehle: Fehlende Wörter 
werden mit Ctrl-I in den bestehen- 
den Text eingefügt, falsche Wörter 
mit Ctrl-G gelöscht, falsche Zei- 
chen mit Girl-R entfernt. Der letzte 
Befehl dient auch zur Formatierung 
des Textes. Otrl-Z löscht den Text 
einer Zeile ab der Cursorposition. 

Weitere Kommandos sind: Ctrl-C 
zur Zentrierung einer Zeile, Ctr!-D 
zur Duplizierung des zuletzt einge- 
gebenen Zeichens. Mit Otrl-F kann 
man Zeichenfolgen suchen und 
auch austauschen lassen. Die 
ESC-Taste wird bei älteren Apple- 
Modellen zur Eingabe von Groß- 
buchstaben benutzt. Die Eingabe 
der deutschen Sonderzeichen 
(aöüß) in Groß- und Kleinschrei- 
bung ist bei den älteren Apple-Mo- 
dellen normalerweise nicht mög- 
lich. Durch ein vorangestelltes 
Cirl-A können auch diese Sonder- 
zeichen eingegeben werden. Cirl- 
A ermöglicht ferner die Eingabe 
von inversen (Otrl-A I), blinkenden 
(Ctrl-A F) und normalen (Ctrl-A N) 
Zeichen. Damit lassen sich also 
auch Öfrl-Zeichen (blinkend) ein- 
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geben. Verschiedene Drucker 


werden damit steuerbar. 


Die gleichen und noch weitere Be- 
fehle stehen auch im File-Modus 
zur Verfügung. Den File-Modus 
schaltet man mit Ctrl-X (aus dem 
Editier-Modus heraus) an. Die zwei 
wichtigsten Befehle sind G (Get a 
file = Text laden) und S (Save afıle 
= Text speichern). Des weiteren 
istes möglich, den Anfang und das 
Ende des Textes zu setzen (Oftrl-B, 
Otrl-E). Mit CtrI-P kann der Text 
ausgedruckt werden. Steht eine 
80-Zeichenkarte zur Verfügung, so 
kann der Text mit der Tastenfolge 
ESC Ctrl-P auf dem Bildschirm 
„probegedruckt" werden. Vor dem 
Ausdruck kann man die Papierlän- 
ge, den linken Rand, die unterste 
Zeile usw. festlegen. Das Ver- 
schieben und Kopieren von Text- 
blöcken ist ebenfalls möglich, fer- 
ner die Eingabe normaler DOS- 
Kommandos. 


Weitere Merkmale des „Corre- 
spondent" sind: Eingegebener 
Text kann als Binär- oder als Text- 
file auf Diskette gespeichert wer- 
den. Da nur fünf bzw. — bei Ver- 
wendung der 64K-Karte — sieben 
Seiten Text im Speicher abgelegt 
werden können, gibt es die Mög- 
lichkeit, verschiedene Files unter- 
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einander zu einem großen Text zu 
verbinden. Diese Einzeltexte wer- 
den nicht nur hintereinander ge- 
druckt, sondern können auch mit 
der Such-Routine kontinuierlich 
durchsucht werden. Sogar die 
Such- und Tausch-Routine arbeitet 
dann richtig, so daß nach einem 
Tausch erst der neue Text auf Dis- 
Kette gespeichert und dann der 
neue File geladen wird. Das Zu- 
sammenfügen verschiedener Tex- 
te ist ebenso möglich wie das 
Speichern von Teilen des Gesamt- 
textes. 

Mit dem gesondert erhältlichen 
Software-Paket „The Printogra- 
pher“ kann man sogar Grafik in 
den Text einbinden. 


Hilfe-Seiten dienen als Gedächt- 
nisstütze, da man die vielen Mög- 
lichkeiten, die der Correspondent 
bietet, nicht alle auswendig wissen 
kann. Von Hause aus wird das Pro- 
gramm mit sieben Hilfe-Seiten ge- 
liefert. Zusätzlich wird jedoch im 
Handbuch beschrieben, wie man 
selbst derartige Seiten aufsiellt 
und speichert. 

Das mitgelieferte Handbuch er- 
klärt die Benutzung anhand von 
Beispielen auf 60 Seiten sehr aus- 
führlich. In den verschiedenen An- 
hängen wird zudem beschrieben, 


Hard- und Software zum Apple lic 


zusammengestellt von 
Matthias Pohl 


Die nachfolgenden Produkte, die 
speziell für den Apple IIc entwik- 
kelt wurden, sind zum Teil noch 
nicht in der Bundesrepublik erhält- 
lich. 


Z80-Karte 

Mit der CP/M-Karte von Precision 
Software erhält der Benutzer Zu- 
gang zur größten Standard-Soft- 
ware-Bibliothek der Welt. Zum Lie- 
ferumfang gehören neben der ei- 
gentlichen Karte, die den Z80-Pro- 
zessor beherbergt, das CP/M- 
Plus-Betriebssystem nebst Doku- 
mentation. Die Hardware kann im 
Rechnergehäuse installiert wer- 
den; sie stört die anderen Be- 
triebsarten nicht. 


Maus und Joystick in einem 

Kraft Systems versucht mit dem 
Quickstick Ilc die Vorteile der Maus 
und des Joysticks zu vereinen: Mit 
einem Schieberegler kann zwi- 
schen beiden Betriebsarten ge- 
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schaltet werden. Im Joystick-Mo- 
dus kann man darüber hinaus wäh- 
ien, ob der Steuerknüppel nach 
Loslassen von selbst in die Mittel- 
stellung zurückkehren soll (Selbst- 
zentrierung) oder ob er an der letz- 
ten Position verbleiben soll. 


Drucker-Interface 

Hotlink von Orange Micro verwan- 
delt serielle in parallele Datenfor- 
mate und ermöglicht so den An- 
schluß der meisten Drucker. Da 
die Chips auf dem Interface in 
CMOS-Technik ausgeführt sind, 
wird keine externe Spannungsver- 
sorgung benötigt. Ein Text/Gra- 
phics-Switch stellt die Kompatibili- 
tät mit den verschiedenen Druk- 
ker-Drivern sicher. Im Prinzip die- 
selbe Funktion wie Hotlink hat 
auch der Grappler ©, allerdings ist 
er, Im Unterschied zu ersterem, 
mit umfangreicher Firmware zur 
Ausgabe und Aufbereitung von 
Grafiken versehen: So lassen sich 
Hires-Bilder invers, gedreht oder 
in doppelter Größe ausdrucken, 


wie man den „Correspondent“ 
modifizieren kann. 


The Write Choice ist auf allen Ap- 
ple-Il-Typen (II+/e/c) lauffähig. Da 
der Ausbau des Computers unter- 
schiedlich sein kann, wird auf der 
Diskette ein Programm mitgelie- 
fert, mit dem man The Write Choi- 
ce „personalisieren“ kann. 

Auf der Diskette befindet sich eine 
modifizierte Version des „Diversi- 
DOS“. Dies macht sich besonders 
durch das erfreulich schnelle La- 
den und Speichern der Program- 
me und der Binärfiles bemerkbar. 
In dem Anhang des Handbuchs 
werden die Möglichkeiten und 
Merkmale dieses schnellen DOS 
erklärt. 


Fazit 


Man erhält für etwa 180,- DM ein 
Textverarbeitungssystem, das für 
kleine bis mittlere Anwendungen 
kaum Wünsche offen läßt. Das 152 
Seiten starke Handbuch erklärt gut 
verständlich die Benutzung der 
verschiedenen Programme. Eine 
mitgelieferte Referenz-Karte bietet 
einen schnellen Überblick über die 
zahlreichen Befehle. Die Program- 
me werden auf einer beidseitig be- 
spielten kopierbaren Diskette ge- 
liefert und laufen unter DOS 3.3 


Druckerpuffer 

U-Print AP64 P hat einen 64K-fas- 
senden, internen Speicher zur Puf- 
ferung von zur Druckausgabe an- 
stehenden Daten. Mit einem Wähl- 
schalter kann die gewünschte Ko- 
pienanzahl eingestellt werden, ein 
zweiter Schalter dient der Spel- 
cherlöschung. Das Gerät ist mit ei- 
nem Centronics-Interface ausge- 
stattet. Unter der Bezeichnung U- 
Print AP16 ist auch ein kleinerer 
Typ mit 16K-Speicher erhältlich. 
Beide Geräte werden von Digital 
Devices hergestellt. 


Noch ein Interface 

Mit ApriCord IIc von Apricorn kann 
man centronics-kompatible Druk- 
ker an den Apple Ilc anschließen. 
Zur Spannungsversorgung der in 
einem Kunststoff-Spritzguß-Ge- 
häuse untergebrachten Elektronik 
ist kein eigenes Netzteil erforder- 
lich. 


Reisekoffer 
Mit dem aus Polyethylen gefertig- 
ten und an den Seiten mit Alu- 


bzw. Diversi-DOS. Verblüffend ist, 
daß alle Programme in BASIC ge- 
schrieben sind. Verschiedene zeit- 
intensive Routinen liegen jedoch 
als Maschinenunterprogramme 
vor. Zusätzlich enthält die Diskette 
noch einige Beispieltexte. 


Die Ausführungsart von verschie- 
denen Befehlen ist gewöhnungs- 
bedürftig. So wird das Einfügen für 
meine Begriffe etwas umständlich 
gehandhabt. Man muß erst für die 
gewünschte Anzahl von Zeilen 
Platz schaffen (Cirl-I), kann dann 
Text eingeben und muß zum 
Schluß gaf. die beiden Textenden 
zusammenfügen (Otri-R). Der Ge- 
wöhnung bedarf auch das automa- 
tische Einfügen von zwei Leerzei- 
chen im Anschluß an das Satzende 
nach dem Formatierbefehl (Ctri-R). 
Die Zeit für das Löschen einzelner 
Zeichen wird etwas lang, da gleich- 
zeitig alle Zeilen des Absatzes neu 
formatiert werden. Nach dem Lö- 
schen ganzer Wörter enistehen 
Lücken, die erst nach der Neufor- 
matierung geschloßen werden. 
Nach einiger Zeit Arbeit mit dem 
„Correspondent“ komme ich je- 
doch zu der Ansicht, daß ich die- 
ses Programm trotz der genannten 
Einschränkungen in Zukunft häufig 
benutzen werde. 


Profilen verstärkten Koffer von Fi- 
berbilt ist ein sicherer Transport 
des Apple Ilc möglich. Neben dem 
eigentlichen Rechner finden auch 
der Monitor und ein zweites Lauf- 
werk Platz. Auch für Modem und 
Maus sind in dem Schaumstoffein- 
satz Aussparungen vorhanden. 


Paralleles Drucker-interface 

Mit der Serial Box von PBl lassen 
sich die Drucker von Epson, Oki- 
data und C.ltoh an den Apple Ilc 
anschließen. Alle zur Verbindung 
von Drucker und Computer benö- 
tigten Kabel werden mitgeliefert. 


Transportkoffer 

Der Transportkoffer von World Wi- 
de Case soll den Apple Ilc bei 
Transport und auf Reisen schüt- 
zen. Jeder Koffer ist innen ausge- 
schäumt und mit einem Schloß 
und Außentaschen versehen. 


Buchhaltung 


Das Buchhaltungsprogramm Rags 
to Riches von Chang Labs gibt es 
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jetzt auch für den Apple Ilc. Es 
setzt sich aus den vier Modulen 
Hauptbuch, Außenstände, Zahlun- 
gen und Umsatz zusammen. Das 
Programm benötigt 128K und nutzt 
die Technik des Screen-Splitting. 


Slimline-Laufwerk 

Ad-3C ist ein 5,25-Zoll-Slimline- 
Laufwerk, das direkt an den Apple 
IIc angeschlossen werden kann. 
Es wird von American Mitac herge- 
stellt und ist in der Farbgebung 
dem Rechner angepaßt. 


Adapter 

Mit Hilfe des AppleDaptor von Mi- 
cro-Design kann man alle Disk 
Drives, die sich am Aplle Il, II+ 
oder Ile betreiben lassen, auch an 
den Apple Ilc anschließen, 


5,25-Zoll-Laufwerk 


Als zweites Laufwerk angeschlos- 
sen werden kann der Micro Drive 


Ampersoft 


von Titan Data Systems. Er ist in 
Slimline-Technologie ausgeführt 
und soll kürzere Zugriffszeiten ha- 
ben als die Original-Apple-Lauf- 
werke. Alle zum Anschluß benötig- 
ten Kabel sind Teil des Lieferum- 
fangs. 


Interface für Epson-Drucker 
Unter Benutzung der Universal 
Card von Hanzon kann man die 
beiden Druckertypen Epson RX 
und Epson FX an den Ilc anschlie- 
Ben. Das Interface ändert die für 
den Imagewriter ausgelegten Kon- 
trollcodes dergestalt, das sie auch 
von den Epson-Druckern „ver- 
standen" werden. 


Grafikpaket 

Dazzle Draw von Broderbund Soft- 
ware ist ein Programmpaket zur 
Grafikerstellung. Benötigt werden 
128K-Speicher und die Double Hi- 


Eine Ampersand-Utility-Sammlung 


Kurzbericht von 
Franz-Josef Hüskens 


Ampersoft ist eine Utility-Samm- 
lung, die von dem holländischen 
Statistik-Professor und Apple- 
Kenner C. Bongers erstellt wurde 
und über die Software-Abteilung 
der amerikanischen Zeitschrift 
„Nibble" vertrieben wird. Ein Teil 
der Utilities ist in der Nibble (z.B. 
die Sortierroutine) bzw. in „Call 
A.P.P.L.E.“ (z.B. der DOS-Mover) 
veröffentlicht worden. 

Ampersoft liegt einschließlich des 
gemovten DOS 3.3 komplett in der 
Bank 1 und 2 der Language-Card. 
Mit Ausnahme der Matrizenrech- 
nung sind alle anderen Routinen 
auch durch entsprechende 
Peeker-Beiträge behandelt wor- 
den, auf die gesondert hingewie- 
sen wird. 


Appie Ike 


MieroSPARC Inc. 


AMPERSOFT 
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DOS-Mover 

Erfreulich ist, daß Ampersoft nicht 
nur Applesoft-BASIC erweitert, 
sondern zusätzlich das DOS 3.3 in 
die Language-Card schiebt und 
damit in den unteren 48K ca. 10000 
Bytes mehr Platz schafft. Die- 
ses verschobene DOS unterschei- 
det sich jedoch von dem normalen 
DOS 3.3. So gibt es kein INIT- 
Kommando mehr; man braucht al- 
so weiterhin das Standard-DOS, 
um Disketten initialisieren zu kön- 
nen. Für verschiedene Programme 
(COPYA, FID, MUFFIN, usw.) be- 
finden sich auf der Diskette zusätz- 
liche Routinen, die das jeweilige 
Programm an das veränderte DOS 
anpassen. 

(vgl. „DOS-Mover" in Peeker 2/ 
86.) 


CATALOG-Befehl 

Nach einem CATALOG erhält je- 
der File auf der Diskette ein zu- 
sätzliches Zeichen wie -, =, / usw. 
als Abkürzung. Damit kann auf den 
gewünschten File zugegriffen wer- 
den, ohne den vollständigen Na- 
men eingeben zu müssen. 


Print-Using 

Mit Ampersoft erhält Applesoft- 
BASIC ein schnelles Print-Using, 
das keine Wünsche mehr offen 
läßt. Man kann nun mit Hilfe von 
Spezial-Symbolen innerhalb einer 
Formatierungsmaske Zahlenkolon- 
nen oder auch andere Informatio- 
nen beliebig formatiert ausgeben. 
Die Ausgabe ist nicht nur über 
Bildschirm und Drucker, sondern 


res-Grafik. Die Eingabe kann mit- 
tels Apple Mouse, Koala Pad, Gra- 
fik-Tableit oder Joystick erfolgen. 
(s. Peeker 9/85, S. 61.) 


Synthesizer 

Mockingboard von Sweet Micro 
Systems ist ein Synthesizer, der 
sechs Musikstimmen, Halleffekte 
und Sprache erzeugen kann. Zur 
Ausgabe der Toneffekte hat das in 
einem separaten Gehäuse unter- 
gebrachte Gerät Stereolautspre- 
cher. 


Kontrollsystem 

Mit Smarthome von CyberLynx 
kann man sämtliche elektrischen 
Verbraucher zentral mit dem Apple 
IIc steuern und überwachen. Der 
Anschluß der Hardware erfolgt di- 
rekt an die serielle Schnittstelle 
des Rechners. 


auch auf die Diskette möglich. 
(Vgl, „Print-Using“ in Peeker 11/ 
85.) 


Matrizenbefehle 

Die sehr leistungsfähigen Matri- 
zenbefehle werden Gegenstand 
eines gesonderten Artikels im 
Peeker sein („Matrizenrechnung 
für Betriebswirte", voraussichtlich 
in Peeker 3/85). 


Sortierroutine 

Mit einer Sortierroutine können 
ein- und zweidimensionale Felder 
schnell in aufsteigender Folge sor- 
tiert werden. Dabei spielt es keine 
Rolle, ob es sich um Zahlen oder 
Strings handelt. Für mehrere, 
durch Indizierung miteinander ver- 
bundenen Feldern kann der Index 
entsprechend mitsortiert werden. 
(Vgl. „Quicksort“ in Peeker 1/86.) 


BSAVE/BLOAD von Arrays 
Zahlenfelder können mit Amper- 
soft als Binärdateien auf Diskette 
gespeichert werden. Dies bietet 
gegenüber der Ablage als Textfiles 
den Vorteil, daß die Zugriffszeit 
verkürzt und der auf der Diskette 
benötigte Speicherplatz verringert 
wird. 

(vgl. „ProDOS für Aufsteiger", Bd. 
2, 5.87.) 


Löschen von Arrays 

Eine weitere Utility erlaubt das se- 
lektive Löschen von bereits dimen- 
sionierten Feldern. Damit kann in 
Applesoft-Programmen der vor- 


Lichtgriffel 

Der Gibson Light Pen von Koala 
Technologies wird durch ein Kabel 
mit dem Rechner verbunden. Zum 
Lieferumfang gehören vier Pro- 
gramme, die die Möglichkeiten 
dieses Device ausschöpfen. Die 
Programme heißen Pen Painter, 
Pen Designer, Pen Animator und 
Pen Musician. 


Spracherzeugung 

Mit dem Cricket-Synthesizer von 
Street Electronics kann man so- 
wohl menschlich klingende Stim- 
men (männliche und weibliche) als 
auch „Roboterstimmen“ erzeu- 
gen. Hierzu hat das mit dem TI 
5220 Sprachchip ausgestattete 
Gerät eigene Lautsprecher. Des 
weiteren gibt es sechs Musikkanä- 
le, eine eingebaute Uhr und einen 
Kopfhöreranschluß. 


handene Speicherplatz effektiver 
ausgenutzt werden. 

(vgl. „Wie man Arrays löscht" in 
Peeker 2/84.) 


Garbage-Collection 

Die sehr langsame Garbage-Col- 
lection des Applesoft-Interpreters 
wird mit Ampersoft durch eine sehr 
schnelle ersetzt. 

(vgl. „Müllabfuhr wie ein Blitz“ in 
Peeker 1/85.) 


Alle Routinen können aus Ap- 
plesoft-Programmen heraus mit 
einfachen &-Befehlen aufgerufen 
werden. Aus diesem Grunde funk- 
tionieren die Utilities nicht bei com- 
pilierten Applesoft-Programmen. 


Ampersoft wird auf einer kopierba- 
ren Diskette geliefert. Im zugehöri- 
gen Handbuch wird die Benutzung 
der Utility-Sammiung anhand von 
Beispielen eingehend beschrieben 
und erklärt. Die einzelnen Utilities 
erweitern das etwas karge Ap- 
plesoft-BASIC zwar um einige 
wichtige Befehle, jedoch ist der 
Preis von etwa 200,- DM für meine 
Begriffe überhöht. Es gibt Pro- 
gramme, die gleiches oder ähnli- 
ches leisten, aber erheblich preis- 
werter sind. Der Vorteil liegt in der 
Bündelung, falls man alle Amper- 
sand-Routinen gleichzeitig benö- 
tigt, weil man sich sonst einzelne 
Routinen (aus dem Peeker usw.) 
erst zusammenstellen müßte. 


# 
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Buchbesprechungen 


Was ist wo im Apple 

1985, 496 S., zahlr. Tabellen und 
Abb., kart. 

von William F, Luebbert 
Sybex-Verlag, Düsseldorf 

Dieses Buch ist eine gelungene 
Übersetzung des schon fast legen- 
dären „What’s Where in the Ap- 
pie“, das in den Anfängen des Ap- 
ple eine der meistzitierten Quellen 
war und nun auch für den Ile auf 
den neusten Stand gebracht 
wurde, 

Es bietet sowohl für Assembler- 
als auch für gehobene Applesoft- 
Programmierer eine Fülle von Tips 
und Informationen, von der Bele- 
gung der Zero-Page über die Or- 
ganisation des Bildschirms bis hin 
zur Beschreibung von DOS, Ap- 
plesoft-Interpreter und Monitor. 
Der numerische und alphabetische 
Atlas (über 140 Seiten) faßt alle 
Speicherstellen und Routinen zu- 
sammen und beschreibt kurz de- 
ren Anwendung. Die Fülle an In- 
formationen über DOS, beide BA- 
SIC-Interpreter und |I+/lle-Moni- 
tor ermöglicht eine effiziente Aus- 
nutzung des Apple, wobei die hier 
angegebenen Label-Namen quasi 
zum Standard wurden. 

Das Buch bietet selbst dem erfah- 
renen Apple-Programmierer noch 
neue Möglichkeiten und kann auch 
später im täglichen Gebrauch als 
nützliches Nachschlagewerk 
dienen. 

Inhalt 

Systemspezifische Programmie- 
rung — PEEK, POKE und CALL - 
Apple-Architektur — Ädressierung 
beim 6502 — Maschinenprogram- 
me in BASIC-Umgebung — Die 
Speicherorganisation — Monitor- 
und DOS-Vektoren — Bildschirm- 
speicher — Benutzerspeicher — 
Das Diskettenbetriebssystem DOS 
- Der E/A-Bereich -— Der Ap- 
plesoft-BASIC-Interpreier — Der 
Monitor-Bereich — Atlas 


Apple-Assembler lernen 

Bd. 1, Einführung in die Assem- 
bler-Programmierung des 6502/ 
65002 

von Jürgen Kehrel 

1985, 234 S., zahlr. Abb., kart., DM 
38. 

Hüthig Verlag, Heidelberg 

Dieses Buch bietet in 35 Lektionen 
einen bequemen Einstieg in die 
Assembler-Programmierung auf 
dem Apple. Ausgehend von Ap- 
plesoft-BASIC werden kleine Ma- 
schinenprogramme entwickelt, 
wobei besonderer Wert auf eine 
didaktische Einführung in die Pro- 
grammierung mit einem Ässem- 
bler gelegt wurde. 
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In jedem Fall empfehlenswert ist 
der Kauf der Begleitdiskette (Preis: 
DM 44,-), die neben allen in dem 
Buch gezeigten Programmen auch 
einen „ausgewachsenen“ Assem- 
bler mit Editor bietet, der trotz der 
fehlenden Makro-Eigenschaft 
durchaus mit professionellen As- 
semblern konkurrieren kann und 
weit über die Anfänge der Pro- 
grammierung in Maschinenspra- 
che alle Wünsche abdeckt. Ein be- 
sonders für Anfänger fast unaus- 
weichliches Hilfsmittel ist der 
ebenfalls auf der Begleitdiskette 
enthaltene Debugger IDUS, der es 
ermöglicht, die selbstgeschriebe- 
nen Programme schrittweise zu 
verfolgen und die Änderung von 
Speicherstellen, Registern und 
Flaggen zu beobachten. 

Vor der Besprechung der Befehle 
erfolgt eine leichtverständliche 
Einführung in die Welt der Bits und 
Bytes. Bei den Programmen wurde 
versucht, Probleme der täglichen 
Assembler-Praxis aufzugreifen, so 
daß nicht unnütze Probleme be- 
sprochen werden, sondern schon 
einmal eine verständliche aber 
professionelle Routine angeboten 
wird. 

Die für Anfänger zunächst un- 
durehschaubaren Adressierungs- 
arten des 6502 werden nicht ne- 
benbei beschrieben, sondern am 
Ende der Einführung mit instrukti- 
ven Abbildungen veranschaulicht, 
ein Weg, den jeder Assembler- 
Kurs beschreiten sollte. Eine um- 
fangreiche Zusammenfassung des 
kompletten Befehlssatzes mit Bei- 
spielen für den täglichen Gebrauch 
und verschiedene Tabellen runden 
den ersten Band ab. 

Inhalt 

Assembler-Kurs in 35 Lektionen — 
Der 6502/65002 Befehissatz — 
Der Assembler ASSESSOR - Der 
Debugger und Simulator IDUS - 
Anhang 


ProDOS-Analyse 

Versionen 1.0.1, 1.0.2, 1.1.1 

von Arne Schäpers 

1985, 470 S., kart., DM 68,- 
Hüthig Verlag, Heidelberg 

Mit der ProDOS-Analyse erhält der 
Leser eine umfassende Darstel- 
lung der kompletten ProDOS-In- 
terna, ohne das BASIC.SYSTEM. 
Da sowohl die Versionen 1.0.1 als 
auch die geänderten Versionen 
1.0.2 und 1.1.1 beschrieben wer- 
den, kann der mit Assembler ver- 
traute Anwender {und nur für diese 
Gruppe ist dieses Buch geeignet) 
sein Betriebssystem modifizieren 
und patchen oder auch nur ergrün- 


den. Die kommentierten Assem- 
blerlistings aller Teile (MLI mit 
RWTB, Boot-Programm, RAM- 
Disk etc.) geben einen tiefgreiien- 
den Einblick in die Arbeitsweise 
des Betriebssystems. Dabei wird 
jeweils vorher die genaue Funktion 
der einzelnen Komponenten be- 
schrieben, so daß nach der Lektü- 
re dieses Buches kaum noch Fra- 
gen zu dem Betriebssystem offen 
bleiben dürften. 

Mit der ProDOS-Analyse hat der 
Autor selbst das Technical Refe- 
rence Manual der Firma Apple 
übertroffen und die wohl umfang- 
reichste theoretische Darstellung 
eines Betriebssystems geschaf- 
fen, die je auf dem freien Markt 
erhältlich war. 

Das MLI — Dateistrukturen unter 
ProDOS - Programmiertricks im 
MLI — BOOT und REBOOT von 
ProDOS — Die Verarbeitung von 
NMI, RESET und IRQ - SET TIME 
für die Thunderclock — Die System 
Global Page - Die RWTB der DISK 
I - Die Organisation einer Diskette 
— Hardware Details — Die RAMDisk 
— Updates von ProDOS - Anhänge 


Bewegte Apple-Grafik 

DOS Toolkit-Erweiterungen 

von Arne Schäpers 

1985, 308 S., kart., DM 58,- 
Hüthig Verlag, Heidelberg 

Die DOS Toolkit-Diskette enthält 
neben dem Assembler auch ein 
interessantes Programm zur Dar- 
stellung von Objekten auf dem 
HGR-Bildschirm des Apple. Dieser 
Hires Character Generator ist Ge- 
genstand dieses Buches, das den 
fortgeschrittenen Applesoft-Pro- 
grammierer mit Ässemblerkennt- 
nissen in die Welt der bewegten 
Grafik einführt. Im ersten Teil des 
Buches wird zunächst der HRCG 
analysiert und dessen Möglichkei- 
ten aufgezeigt. Daran schließt sich 
ein kommentiertes Assemblerli- 
sting an. 

Im zweiten Teil wird ein professio- 
nelles Arkade-Spiel entwickelt, bei 
dem der Leser unter anderem 
lernt, wie simultane Bewegungen 
mehrerer Objekte gleichzeitig rea- 
lisierbar sind. Dabei wird auch auf 
die Steuerung mit Joysticks und 
Paddles eingegangen. Dieser Blick 
hinter die Kulissen der Program- 
mierung von Computerspielen bie- 
tet die Möglichkeit, eigene Ideen 
umzusetzen und Spiele zu pro- 
grammieren, die in nichts den pro- 
fessionellen Angeboten nachste- 
hen müssen. 

Inhalt 

Der HRCG - Line-Skewing — 
Transparente Overlays — Arkade- 
Algoritnmen — Asymmetrische Fi- 
guren und optische Mittelpunkte — 
Kontrollprogramm — Kollisionen — 
Ausblicke 
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Appiesoft BASIC 

Tips und Tricks 

von Frank Bühler 

1985, 244 S., kart., DM 38.- 
Hüthig Verlag, Heidelberg 

Dieses Buch ist für den Anfänger 
und Fortgeschrittenen gleicherma- 
Ben nutzbar. Neben einer Einfüh- 
rung in die Programmiersprache 
BASIC, die für den Einstieg aus 
einer anderen Sprache ausrei- 
chend sein dürfte, werden alle Ap- 
plesoft-Befehle mit entsprechen- 
den Beispielen aufgeführt. 
Darüber hinaus bietet das Buch 
einige Programmbeispiele mit z.T. 
kleineren Assembler-Routinen 
(deren Eingabe in den Rechner lei- 
der nicht erklärt wird), die dann in 
eigene Programme aufgenommen 
werden können. Am Ende folgen 
einige Tips zur Entwicklung von ef- 
fizienten Applesoft-Programmen. 
Im Anhang findet der Leser noch 
einmal Tabellen mit Fehlermeldun- 
gen, 6502-Befehlssatz und nützli- 
che Adressen. 

Inhalt 

Applesoft-Basic im Vergleich — 
Grundelemente von Basic — Ap- 
plesoft-Befehlssatz — Rechenope- 
rationen -— Änwendungs- und Pro- 
grammbeispiele — Programment- 
wicklung/Hinweise — Anhang 


dBase Il 

Bd. 2: Programmierung 

von W. Eggerichs 

1985, 191 S., zahlr. Abb., kart., DM 
38,90 

Hüthig Verlag, Heidelberg 

Das Buch knüpft unmittelbar an 
den Band 1 „Einführung“ an. Mit 
seiner kurz-sachlichen Formulie- 
rung hebt es sich wohltuend von 
zahlreichen dBase-Büchern ab, 
die weitschweifend wenig Informa- 
tion pro Seite bieten. 

An den kleinen Beispielen werden 
die grundlegenden Befehle zum 
Programmieren in dBase erklärt. 
Zur grafischen Darstellung wird 
das Struktogramm gewählt (auf 
den wesentlich unübersichtliche- 
ren PAP verzichtet der Autor zu 
Recht). Abschließend wird eine 
vollständige Anwendung zur Ver- 
waltung von Kundenstammdaten 
wiedergegeben, die der Leser 
leicht seinen eigenen Wünschen 
anpassen kann. 
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In Vorbereitung 


Aufsätze 


Dos-Mover 

Erhöhung der Speicher- 
kapazität um 30% 
(DOS 3.3) 


Binäres Rechnen mit 

Papier und Bleistift 

Teil 1: Addition und Subtraktion 
(Grundlagen) 


Matrizenrechnung in der 
betriebswirtschaftlichen Praxis 
(Praxis) 


Der IEC-Bus 
(Hardware) 


serielle Schnittstellen beim 
Apple Ilc 
(Hardware) 


MAKESUB 

Erstellung zusammenhängen- 
der Subdirectories 

(ProDOS) 


Befehlserweiterung durch 
CHRGET-Manipulation 
(Applesoft) 


Bildschirmmasken in der 
Language-Card 

(Assembler) 
Dreidimensionale Funktions- 


darstellung 
(Grafik) 


Dreiecksberechnung 
(UCSD) 


Readlin von Integer-Zahlen 
(UCSD) 


Test- und Erfahrungs- 
berichte 


CP/M-3.0-Karte für Apple IIc 
(Semijan) 


Premium-Softcard 
Speicherverwaltung unter CP/M 
(Microsoft) 


FSS 280 
Diskettenlaufwerk 
(erphi electronic) 


Prometric 
65C02C- und Z80B-Rechner 
(Electronic Special Service) 


Microbuffer II 
Druckerpuffer-Karte 
(Practical Peripherals) 


ML-192-Drucker 
(Okidata) 


SG-15-Drucker 
(Star) 


Mockingboard 
Musik- und Sprachkarte 
(Sweet Micro Systems) 


Multi-Disk-Catalog Ill 
Diskettenverwaltung 
(Sensible Software) 


DCODE 
Applesoft-Hilfsprogramme 
(Beagle Brothers) 


Apple- und Peeker-Händler 


Den „Peeker“ gibt es bei folgenden Apple-Händlern: 


Beso GmbH, Oswaldstr. 5, 4700 Hamm 4 

Böhmer Electronic, Wilhelm-Zopf-Str. 9, 7080 Aalen 
Büro Plan Klaus Bayerl, Bochumer Str. 22, 4270 Dorsten 
City Computer, Dönhoffstr. 23, 5090 Leverkusen 
Computerland, Am Wall 137, 2800 Bremen 1 
Delta-Electronic, Gugelmattstr. 31, Ch-8967 Widen 

DMS Büroorganisation GmbH, Schwimmbadstr, 36, 


6301 Heuchelheim 


Günther Heinicke GmbH, Postfach 80 04 26, 2050 Hamburg 80 
Horten Warenhaus, 1 N 7, 2a, 6800 Mannheim 

Norbert Hunstig, Nottulner Landweg 81, 4400 Münster 

Karstadt AG, Kampstr. 1, 4600 Dortmund 1 

Kaut-Bullinger & Co. GmbH, Rosenstr. 8, 8000 München 8 
Josef Kraus, Darmstädter Str. 26, 6148 Heppenheim 
Microland-Computer GmbH, Bäringer Str. 31, 3380 Goslar 
Mittetrheinisches Rechenzentrum GmbH, Postf. 128, 5160 Düren 
Novocomp Datensysteme GmbH, Walramsneustr. 7 u. 9, 5500 Trier 
Orgasoft GmbH, Graneggstr. 43, 7732 Niedereschach 
Pandassoft, Uhlandstr. 195, 1000 Berlin 12 

R+R Electronic, Breslauerstr. 29, 6900 Heidelberg 1 

Schöpp GmbH, Bahnstr. 79, 6140 Bensheim 
Staehlin-Büroorganisation, Klostersteige 12-14, 


8960 Kempten / Allgäu 


Wagner Datentechnik, Hochstr. 1, 7990 Friedrichshafen 
Würth Bürobedarf + Organisation GmbH, Am Rupertsberg 16, 


6530 Bingen 1 


Sammeldisk +13 


QUICK.RANDOM (Heft 1/86, S. 6ff.) 
QUICK.SPEZIAL 

QUICK.TASC 

QUICK.DISK 


QUICKSORT.DEMO (Heft 1/86, S. 16ff.) 
TOUIEKSORT 
QUICKSORT 


VOK.TRAINER (Heft 1/86, S. 20ff.) 
VOK.COPY 

VOK.PACK 

vOR.BCORT 

GWS.INFO 

GWS.VOK 


AGE.DEMO (Heft 1/86, S, 30ff.) 
IAGE 
AGE 


GRAFIK.DEMOS.2 (Heft 1/86, S. 61ff.) 


Achtung! 


Wegen der riesigen deutsch-englischen UÜbungsdatei 
GWS.VOK zum Vokabeltrainer müssen die nachfolgenden 
Programme aus Heft 1/86 auf die Sammeldisk #14 über- 
nommen werden, die im übrigen die Programme aus Heft 
2/86 enthalten wird. 


T.PROTODOS (Heft 1/86, S. 36ff.) 
PROTODOS 


DESIGNER.TEXT (Heft 1/86, S. 43ff.) 
READPAS.PAS (Heft 1/86, S. 48ff.) 
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„Apple Assembler wendet sich an alle, 
die bereits Anfängerkenntnisse der 
6502-Programmierung haben und 
nunmehr ein Nachschlagewerk für 
ihren Apple II Plus /lle/llc suchen, in 
dem alle wichtigen ROM-Routinen 
sowie eine Vielzahl sonstiger Hilfspro- 
gramme in einer systematischen Form 
zusammengestellt werden. Insgesamt 
umfaßt dieses Buch über 40 Utilities, 
darunter mehrere völlig neuartige Pro- 
gramme wie Double-Lores, Double- 
Hires, Screen-Format u. a. 


Der erste Teil enthält ein Repetitorium 
der wichtigsten Befehle, Adressie- 
rungsarten und sonstigen Besonderhei- 
ten des 6502 sowie Angaben zu den 
apple-spezifischen Zahlenformaten 
(Integer- und Fließkommazahlen). 

Im zweiten Teil werden neben einer 
Kurzwiederholung der Monitor-Befehle 
alle Routinen und Adressen des Moni- 
tors zusammengestellt, die für Ässem- 
blerprogrammierer von Nutzen sein 
können. Darüber hinaus findet der 
Leser Unterroutinen für Vorwärts- und 
Rückwärts-Moven, hexadezimale Addi- 
tion /Subtraktion /Multiplikation /Divi- 
sion, Binär-, Hex-und ASCII- 
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Tips fehle x 
und Tricks /” ee & 


Mit ausführlichen 
Programmbeispielen 


ey 


Ulrich Stiehl 


Hüthig 


Umwandlung, Dumpen /Disassemblie- 
ren, Aufwärts-Scrollen, Reset u.a. 

Der dritte Teil befaßt sich mit der Spei- 
cherverwaltung der Language-Card 
und der Il e-64K-Karte und enthält Test- 
und Move-Programme zum Verschie- 
ben von Daten in die und aus der 
Language Card sowie der 64K-Karte, 
wobei besonders ausführlich auf die 
Softswitches eingegangen wird. 


Der vierte Teil ist dem Applesoft-ROM 
gewidmet und beschreibt die interne 
Struktur von Applesoft-Programmen, 
die Methoden der Parameterübergabe 
mittels CALL, USR, &, PEEK und POKE 
und listet dann eine große Anzahl nütz- 
licher Interpreter-Adressen. Bei den 
Utility-Programm liegt das Schwerge- 
wicht auf Flie8tkommamathematik ein- 
schließlich Print Using. 


Der letzte Teil behandelt den Text- und 
Grafikspeicher, Neben einem profes- 
sionellen Maskengeneratorprogramm 
findet der Leser hier auch erstmals 
Routinen zur Double-Lores- und 
Double-Hires-Grafik des Apple Ile. 
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Apple Assembler 
- Tips und Tricks - 


von U. Stiehl 


232 S., 40 Programm-Listings, 
3 Abb,, kart., DM 34,— 
ISBN 3-7785-1047-9 


Begleitdiskette zum Buch DM 28,— 
ISBN 3-7785-1048-7 
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‘ ‚istlir Volunes 


von Dieter Geiß mm 


Turtle-Utilities für Fenstertechnik | MT Ti ha 
und Apple-Maus in einfacher 
und doppelter Hires-Grafik für 
Pascal 1.1/1.2 auf Apple II+/e/c 
mit Maus oder Joystick. 

2 Disketten mit umfangreichem 
Manual, DM 98,— 
Erscheinungstermin Anfang 1986 M Il N In ' 


35 files, 280 AIR — 
8) TER T > [a 


En Desktop 
| Filenane: DESKTOP 
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Das Utility-Paket besteht aus vier Modulen, die von Programmierern benutzt werden können, um 
professionelle grafische Anwendungsprogramme in Pascal zu schreiben. 





Benötigt wird ein Apple Pascal Betriebssystem, entweder die Version 1.1 oder die neue Version 
1.2. Bestehende Programme laufen ohne Einschränkung mit der neuen „TurtleGraphics“, wenn 
diese nicht zu viel Speicherplatz verbraucht haben, da die neue „TurtleGraphics“ umfangreicher 
als die alte ist. 


Im einzelnen bietet das Paket folgende Möglichkeiten: 


— volle Kompatibilität mit der alten „TurtleGraphics“ 

— lauffähig auf Pascal 1.1 und 1.2 

— funktionsfähig mit angeschlossener UltraTerm-Karte 

— alle zeitkritischen Funktionen in reinem Assembler programmiert 

— Benutzung der zweiten Hires-Seite ($4000-$5FFF) möglich 

— für Apple IIc und Apple Ile mit erweiterter 80-Zeichen-Karte Benutzung der doppelten Hires- 
Grafik mit 560 x 192 Punkten bzw. 16 neuen Farben möglich 

— schnelle Prozeduren zum Zeichnen eines Punktes oder einer Linie 

— Linearisierung von Teilen des Hires-Schirms 

— Benutzung mehrerer Zeichensätze gleichzeitig 

— Laden und Speichern von Hires-Bildern mit Ausdruck über Pascal-SUPERDUMP 

— Scrolling des Hires-Schirms oder eines Teils in vier Richtungen 

— drei verschiedene Schriftarten: Fett-, Breit- und Proportionalschrift, beliebig mischbar 
(acht Möglichkeiten) 

— spezielle schnelle Ausgabe von Text 

— Cursor bei Eingabe frei programmierbar 

— Ein-/Ausgabe von INTEGER-, CHAR-, STRING- und REAL-Werten im Grafikmodus 

— Menüzeile wie beim Macintosh (Die nachfolgenden Module benötigen Maus/Joystick) 

— Pull-down-Menüs 

— Laden und Speichern von Fenstern (Windows) 

— Öffnen von Fenstern 

— Aktivieren und Deaktivieren von Fenstern 

— Verschieben und Vergrößern/Verkleinern von Fenstern 

— sScrolling von Fensterinhalten in allen vier Richtungen 

— Umfangreiche Demos als Quelltexte. 
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